@@ -871,16 +871,22 @@ generateMain mode interfaces home segments main =
872 Opt.Dynamic decoder msgType ->
872 Opt.Dynamic decoder msgType ->
874− jsonMetadata =
874+ initializer =
875− Encode.object
875+ JS.Ref (Name.fromGlobal home "main")
876− [ ("versions", Encode.object [ ("elm", Pkg.encodeVersion Version.version) ])
876+ # List.foldl' addDot elm segments
877− , ("types", Type.encodeMetadata (Extract.fromMsg interfaces msgType))
877+ # generateJsExpr mode decoder
880− JS.Ref (Name.fromGlobal home "main")
879+ JS.Call initializer $
881− # List.foldl' addDot elm segments
880+ case mode of
882− # generateJsExpr mode decoder
881+ Name.Prod _ _ ->
883− # JS.Json jsonMetadata
882+ []
885+ [ JS.Json $ Encode.object $
886+ [ ("versions", Encode.object [ ("elm", Pkg.encodeVersion Version.version) ])
887+ , ("types", Type.encodeMetadata (Extract.fromMsg interfaces msgType))
886(#) :: JS.Expr -> JS.Expr -> JS.Expr
892(#) :: JS.Expr -> JS.Expr -> JS.Expr