git.iko.soy/elk
on master help sign in
Add note about --optimize flag
af7a6b4Evan Czaplicki
compiler/src/Generate/JavaScript.hs+14−1
compare with master
unifiedsplit
@@ -54,7 +54,7 @@ generate mode (Opt.Graph mains graph _fields) roots =
54 name:names ->
54 name:names ->
55 let
55 let
56 state = Map.foldrWithKey (addMain mode graph) emptyState rootMap
56 state = Map.foldrWithKey (addMain mode graph) emptyState rootMap
57− builder = stateToBuilder state <> toMainExports mode rootMap
57+ builder = perfNote mode <> stateToBuilder state <> toMainExports mode rootMap
58 in
58 in
59 Some name names builder
59 Some name names builder
60
60
@@ -64,6 +64,19 @@ addMain mode graph home _ state =
64 addGlobal mode graph state (Opt.Global home "main")
64 addGlobal mode graph state (Opt.Global home "main")
65
65
66
66
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+
67
80
68-- GENERATE FOR REPL
81-- GENERATE FOR REPL
69
82