Some parser work

1 files changed, 1 insertions, 1 deletions

diff --git a/AST.hs b/AST.hs
index 6b327c5..0b98618 100644
--- a/AST.hs
+++ b/AST.hs
@@ -8,7 +8,7 @@ data FunDef t = FunDef Name (Maybe Type) [FunEq t]
   deriving (Show)
 
 newtype Name = Name String
-  deriving (Show)
+  deriving (Show, Eq)
 
 data Type
     = TApp Type [Type]