@@ -498,23 +498,25 @@ toMainExports mode mains =
498498generateExports :: Mode.Mode -> Trie -> B.Builder
499499generateExports mode (Trie maybeMain subs) =
500500 let
501− object =
502− case Map.toList subs of
503− [] ->
504− "{}"
505−
506− (name, subTrie) : otherSubTries ->
507− "{'" <> Text.encodeUtf8Builder name <> "':"
508− <> generateExports mode subTrie
509− <> List.foldl' (addSubTrie mode) "}" otherSubTries
510− in
511− case maybeMain of
512− Nothing ->
513− object
514−
515− Just (home, main) ->
516− let initialize = Expr.generateMain mode home main in
517− JS.exprToBuilder initialize <> "(" <> object <> ")"
501+ starter end =
502+ case maybeMain of
503+ Nothing ->
504+ "{"
505+
506+ Just (home, main) ->
507+ "{'init':"
508+ <> JS.exprToBuilder (Expr.generateMain mode home main)
509+ <> end
510+ in
511+ case Map.toList subs of
512+ [] ->
513+ starter "" <> "}"
514+
515+ (name, subTrie) : otherSubTries ->
516+ starter "," <>
517+ "'" <> Text.encodeUtf8Builder name <> "':"
518+ <> generateExports mode subTrie
519+ <> List.foldl' (addSubTrie mode) "}" otherSubTries
518520
519521
520522addSubTrie :: Mode.Mode -> B.Builder -> (Text.Text, Trie) -> B.Builder