From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 9 Feb 2009 16:18:49 +0000 (+0100)
Subject: Add defMapTouseMap function.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=b7821e23b33faefc7de2fad54513e0d4d70e9729;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Add defMapTouseMap function.
---

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