Last fixes
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 17 Oct 2008 12:26:16 +0000 (12:26 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 17 Oct 2008 12:26:16 +0000 (12:26 +0000)
Expr.hs

diff --git a/Expr.hs b/Expr.hs
index 79522ff..8ad7a58 100644 (file)
--- a/Expr.hs
+++ b/Expr.hs
@@ -22,7 +22,7 @@ typedRight e t = TypedExpr e (instType True t)
 data EVar = F
          | FromTypVar Int
           | FromParam Int Bool
-            deriving (Eq, Typeable, Data)
+            deriving (Eq, Ord, Typeable, Data)
 
 data Expr
        = Var EVar