From: Matthijs Kooijman 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