@@ -54,7 +54,7 @@ generate mode (Opt.Graph mains graph _fields) roots =
5454 name:names ->
5555 let
5656 state = Map.foldrWithKey (addMain mode graph) emptyState rootMap
57− builder = stateToBuilder state <> toMainExports mode rootMap
57+ builder = perfNote mode <> stateToBuilder state <> toMainExports mode rootMap
5858 in
5959 Some name names builder
6060
@@ -64,6 +64,19 @@ addMain mode graph home _ state =
6464 addGlobal mode graph state (Opt.Global home "main")
6565
6666
67+perfNote :: Mode.Mode -> B.Builder
68+perfNote mode =
69+ case mode of
70+ Mode.Prod _ _ ->
71+ ""
72+
73+ Mode.Dev _ Nothing ->
74+ "console.warn('Compiled in DEV mode. Follow the advice at https://elm-lang.org/0.19.0/optimize for better performance and smaller assets.');"
75+
76+ Mode.Dev _ (Just _) ->
77+ "console.warn('Compiled in DEBUG mode. Follow the advice at https://elm-lang.org/0.19.0/optimize for better performance and smaller assets.');"
78+
79+
6780
6881-- GENERATE FOR REPL
6982