Add a BindMap argument to flattenExpr.

diff --git a/Flatten.hs b/Flatten.hs
index ee70446eaf5ed1b39ff56630b107a49f07fd1077..0ee9595cbf1f3072ddec2e9099370a6e86fe304a 100644 (file)
--- 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 [])