@@ -306,15 +306,16 @@ generate unsafeModule =
306306 modul = MakeSafe.metadataModule unsafeModule
307307 thisModule = dotSep ("_elm" : names modul ++ ["values"])
308308 programStmts =
309− concat [ setup (Just "_elm") (names modul ++ ["values"])
310− , [ IfSingleStmt () thisModule (ReturnStmt () (Just thisModule)) ]
311− , [ internalImports (List.intercalate "." (names modul)) ]
312− , concatMap jsImport . Set.toList . Set.fromList . map fst $ imports modul
313− , [ assign ["_op"] (ObjectLit () []) ]
314− , concat $ evalState (mapM definition . fst . flattenLets [] $ program modul) 0
315− , [ jsExports ]
316− , [ ReturnStmt () (Just thisModule) ]
317− ]
309+ concat
310+ [ setup (Just "_elm") (names modul ++ ["values"])
311+ , [ IfSingleStmt () thisModule (ReturnStmt () (Just thisModule)) ]
312+ , [ internalImports (List.intercalate "." (names modul)) ]
313+ , concatMap jsImport . Set.toList . Set.fromList . map fst $ imports modul
314+ , [ assign ["_op"] (ObjectLit () []) ]
315+ , concat $ evalState (mapM definition . fst . flattenLets [] $ program modul) 0
316+ , [ jsExports ]
317+ , [ ReturnStmt () (Just thisModule) ]
318+ ]
318319
319320 jsExports = assign ("_elm" : names modul ++ ["values"]) (ObjectLit () exs)
320321 where