@@ -79,7 +79,7 @@ jsModule modul =
80 setup names = concatMap (\n -> globalAssign n $ n ++ " || {}") .
80 setup names = concatMap (\n -> globalAssign n $ n ++ " || {}") .
81 map dotSep . drop 2 . List.inits $ init names
81 map dotSep . drop 2 . List.inits $ init names
82− usefulFuncs = commaSep (map (uncurry assign') (internalImports modName)
82+ usefulFuncs = commaSep (map (uncurry assign') (internalImports modName))
84 jsExports = setup ("elm" : names modul) ++
84 jsExports = setup ("elm" : names modul) ++
85 ret (assign' ("elm." ++ modName) (brackets exs))
85 ret (assign' ("elm." ++ modName) (brackets exs))