From 2de6cede93912457babc79bcb0f58c9e6b20f05a Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 24 Mar 2024 11:19:48 +0100 Subject: Partially working type checker --- src/HSVIS/AST.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/HSVIS/AST.hs') diff --git a/src/HSVIS/AST.hs b/src/HSVIS/AST.hs index 058f5ac..2986248 100644 --- a/src/HSVIS/AST.hs +++ b/src/HSVIS/AST.hs @@ -100,6 +100,8 @@ data Type s -- extension point | TExt (X Type s) !(E Type s) deriving instance (Show (X Type s), Show (E Type s)) => Show (Type s) +deriving instance (Eq (X Type s), Eq (E Type s)) => Eq (Type s) +deriving instance (Ord (X Type s), Ord (E Type s)) => Ord (Type s) data Pattern s = PWildcard (X Pattern s) -- cgit v1.2.3-70-g09d2