X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Flatten.hs;h=b08ead4e9c53937632795b4c20883631ad77fa00;hb=59e4501737547855380d1ba49629d5e2496bbfa0;hp=14fd781c5c6653ca989c393eb038f5af42cb38ab;hpb=ad6bf1a1380ac5cf48d58a7b7969fd45b7b6a49d;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Flatten.hs b/Flatten.hs
index 14fd781..b08ead4 100644
--- a/Flatten.hs
+++ b/Flatten.hs
@@ -20,7 +20,7 @@ import qualified Control.Monad.State as State
 data HsValueMap mapto =
   Tuple [HsValueMap mapto]
   | Single mapto
-  deriving (Show, Eq)
+  deriving (Show, Eq, Ord)
 
 instance Functor HsValueMap where
   fmap f (Single s) = Single (f s)
@@ -123,7 +123,7 @@ data HsValueUse =
                          -- ^ map should only contain Port and other
                          --   HighOrder values. 
   }
-  deriving (Show, Eq)
+  deriving (Show, Eq, Ord)
 
 type HsUseMap = HsValueMap HsValueUse
 
@@ -152,7 +152,7 @@ data HsFunction = HsFunction {
   hsFuncName :: String,
   hsFuncArgs :: [HsUseMap],
   hsFuncRes  :: HsUseMap
-} deriving (Show, Eq)
+} deriving (Show, Eq, Ord)
 
 type BindMap = [(
   CoreBndr,            -- ^ The bind name