@@ -55,14 +55,14 @@ assign' n e = n ++ " = " ++ e
5555jsModule :: MetadataModule t v -> String
5656jsModule modul =
5757 run $ do
58− body <- toJS (defs modul)
58+ body <- toJS . fst . SD.flattenLets [] $ program modul
5959 foreignImport <- mapM importEvent (foreignImports modul)
6060 return $ concat [ setup ("Elm": names modul)
6161 , globalAssign ("Elm." ++ modName)
62− (jsFunc "elm" $ program body foreignImport) ]
62+ (jsFunc "elm" $ makeProgram body foreignImport) ]
6363 where
6464 modName = intercalate "." (names modul)
65− program body foreignImport =
65+ makeProgram body foreignImport =
6666 concat [ "\nvar " ++ usefulFuncs ++ ";"
6767 , assign "_op" "{}"
6868 , concatMap jsImport (imports modul)