Add defMapTouseMap function.

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)
 
+defMapToUseMap :: SignalDefMap -> SignalUseMap
+defMapToUseMap = fmap (\(SignalDef u) -> SignalUse u)
+
+
 type SignalId = Int
 data SignalUse = SignalUse {
   sigUseId :: SignalId