From b7821e23b33faefc7de2fad54513e0d4d70e9729 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 9 Feb 2009 17:18:49 +0100
Subject: [PATCH] Add defMapTouseMap function.

---
 Flatten.hs | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
2.30.2