projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add defMapTouseMap function.
[matthijs/master-project/cλash.git]
/
Flatten.hs
diff --git
a/Flatten.hs
b/Flatten.hs
index 42ce020766849b3e16204d78d397ca9f3f00d870..b12663df05ec8eaee5e22337c2cacddaac08c9dc 100644
(file)
--- a/
Flatten.hs
+++ b/
Flatten.hs
@@
-61,6
+61,10
@@
type SignalDefMap = HsValueMap SignalDef
useMapToDefMap :: SignalUseMap -> SignalDefMap
useMapToDefMap = fmap (\(SignalUse u) -> SignalDef u)
useMapToDefMap :: SignalUseMap -> SignalDefMap
useMapToDefMap = fmap (\(SignalUse u) -> SignalDef u)
+defMapToUseMap :: SignalDefMap -> SignalUseMap
+defMapToUseMap = fmap (\(SignalDef u) -> SignalUse u)
+
+
type SignalId = Int
data SignalUse = SignalUse {
sigUseId :: SignalId
type SignalId = Int
data SignalUse = SignalUse {
sigUseId :: SignalId