mmakowski · February 11, 2016 19:04
diff --git a/Evaluator.hs b/Evaluator.hs
 module Evaluator where

 --data Expr
 --  = Lit Int
 --  | Add Expr Expr

 class ExprSym e where
  lit :: Int -> e
  add :: e -> e -> e

 instance ExprSym Int where
  lit = id
  add = (+)

 evaluate :: Int -> Int
 evaluate = id
	module Evaluator where

	--data Expr
	-- = Lit Int
	-- \| Add Expr Expr

	class ExprSym e where
	lit :: Int -> e
	add :: e -> e -> e

	instance ExprSym Int where
	lit = id
	add = (+)

	evaluate :: Int -> Int
	evaluate = id