X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=071e9d296dc5f416b6da9d1bfc2ed93a00e07742;hb=6e1beb07825c53ab0da16b815d58c24a1b4ea449;hp=c4bcdbdf02084e9ad8ee8d1c2faf320873e983eb;hpb=8ebcc3ed9b394000ccd07ffeb541f791444dfbc2;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Translator.hs b/Translator.hs
index c4bcdbd..071e9d2 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -176,7 +176,7 @@ flattenBind hsfunc bind@(NonRec var expr) = do
   -- Propagate state variables
   let flatfunc' = propagateState hsfunc flatfunc
   -- Store the flat function in the session
-  modA tsFlatFuncs (Map.insert hsfunc flatfunc)
+  modA tsFlatFuncs (Map.insert hsfunc flatfunc')
   -- Flatten any functions used
   let used_hsfuncs = Maybe.mapMaybe usedHsFunc (flat_defs flatfunc')
   mapM_ resolvFunc used_hsfuncs