X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Flatten.hs;h=b12663df05ec8eaee5e22337c2cacddaac08c9dc;hb=b7821e23b33faefc7de2fad54513e0d4d70e9729;hp=42ce020766849b3e16204d78d397ca9f3f00d870;hpb=9d4873628a889f02b7a4124505dbe18307ecb6e8;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Flatten.hs b/Flatten.hs
index 42ce020..b12663d 100644
--- 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