From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Fri, 6 Feb 2009 11:23:25 +0000 (+0100)
Subject: Add a BindMap argument to flattenExpr.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=e659acb706f7f097be7882d2feaecba2b9e91544;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Add a BindMap argument to flattenExpr.
---

diff --git a/Flatten.hs b/Flatten.hs
index ee70446..0ee9595 100644
--- a/Flatten.hs
+++ b/Flatten.hs
@@ -108,15 +108,17 @@ flattenFunction hsfunc bind@(NonRec var expr) =
   FlatFunction args res apps conds
   where
     init_state        = ([], [], 0)
-    (fres, end_state) = State.runState (flattenExpr expr) init_state
+    (fres, end_state) = State.runState (flattenExpr [] expr) init_state
     (args, res)       = fres
     (apps, conds, _)  = end_state
 
 flattenExpr ::
-  CoreExpr
+  BindMap
+  -> CoreExpr
   -> FlattenState ([SignalDefMap], SignalUseMap)
 
-flattenExpr _ = do
+
+flattenExpr _ _ = do
   return ([], Tuple [])