From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 11 Feb 2009 17:23:05 +0000 (+0100)
Subject: Derive Ord for HsFunction.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=59e4501737547855380d1ba49629d5e2496bbfa0;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Derive Ord for HsFunction.
---

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