projects
/
matthijs
/
master-project
/
cλash.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ad6bf1a
)
Derive Ord for HsFunction.
author
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Wed, 11 Feb 2009 17:23:05 +0000
(18:23 +0100)
committer
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Wed, 11 Feb 2009 17:23:05 +0000
(18:23 +0100)
Flatten.hs
patch
|
blob
|
history
diff --git
a/Flatten.hs
b/Flatten.hs
index 14fd781c5c6653ca989c393eb038f5af42cb38ab..b08ead4e9c53937632795b4c20883631ad77fa00 100644
(file)
--- 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
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)
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.
}
-- ^ map should only contain Port and other
-- HighOrder values.
}
- deriving (Show, Eq)
+ deriving (Show, Eq
, Ord
)
type HsUseMap = HsValueMap HsValueUse
type HsUseMap = HsValueMap HsValueUse
@@
-152,7
+152,7
@@
data HsFunction = HsFunction {
hsFuncName :: String,
hsFuncArgs :: [HsUseMap],
hsFuncRes :: HsUseMap
hsFuncName :: String,
hsFuncArgs :: [HsUseMap],
hsFuncRes :: HsUseMap
-} deriving (Show, Eq)
+} deriving (Show, Eq
, Ord
)
type BindMap = [(
CoreBndr, -- ^ The bind name
type BindMap = [(
CoreBndr, -- ^ The bind name