From 59e4501737547855380d1ba49629d5e2496bbfa0 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 11 Feb 2009 18:23:05 +0100 Subject: [PATCH] Derive Ord for HsFunction. --- Flatten.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.30.2