X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=142a8349dd8364021a8fd5d5c971b6123c91bd98;hb=fe0898cdc1f53172c3897354ef6d0b16d24736de;hp=ec9334bdfe41e9463df1d684eb6b3c256054911c;hpb=214ca86120b26ebc5c478b56107e52b894e46b34;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Translator.hs b/Translator.hs
index ec9334b..142a834 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -97,6 +97,7 @@ flattenBind bind@(NonRec var expr) = do
   --addFunc hsfunc hwfunc 
   let flatfunc = flattenFunction hsfunc bind
   addFunc hsfunc
+  setFlatFunc hsfunc flatfunc
   let used_hsfuncs = map appFunc (apps flatfunc)
   State.mapM resolvFunc used_hsfuncs
   return ()