X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Flatten.hs;h=1297793356dfa8e17223fd034086202ace7584be;hb=1f0b33729534d451d7dcc46d4614d1a12b31ea82;hp=15f99808600bb37cf2880405d48a3639dc78e478;hpb=1de7e7d5eb0c3fd3be4a348e10fec91c7f3d029d;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Flatten.hs b/Flatten.hs
index 15f9980..1297793 100644
--- a/Flatten.hs
+++ b/Flatten.hs
@@ -53,7 +53,7 @@ flattenFunction ::
 
 flattenFunction _ (Rec _) = error "Recursive binders not supported"
 flattenFunction hsfunc bind@(NonRec var expr) =
-  FlatFunction args res apps conds
+  FlatFunction args res apps conds []
   where
     init_state        = ([], [], 0)
     (fres, end_state) = State.runState (flattenExpr [] expr) init_state