Remove NamedFlatFunction again.

[matthijs/master-project/cλash.git] / Translator.hs

diff --git a/Translator.hs b/Translator.hs
index 3b0886086b055d3b34aaa8b8c368d0ce2d70bf39..d0738d3f9175a8058d3621bdf17479d52ff3b517 100644 (file)
--- a/Translator.hs
+++ b/Translator.hs
@@ -108,7 +108,7 @@ flattenBind hsfunc bind@(NonRec var expr) = do
   -- Flatten the function
   let flatfunc = flattenFunction hsfunc bind
   addFunc hsfunc
-  setFlatFunc hsfunc (Left flatfunc)
+  setFlatFunc hsfunc flatfunc
   let used_hsfuncs = map appFunc (apps flatfunc)
   State.mapM resolvFunc used_hsfuncs
   return ()