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