on master help sign in
Make sure console.warn link stays versioned
6d6e9a7Evan Czaplicki
compiler/src/Generate/JavaScript.hs+6−2
@@ -71,10 +71,14 @@ perfNote mode =
71 ""
71 ""
72
72
73 Mode.Dev _ Nothing ->
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.');"
74+ "console.warn('Compiled in DEV mode. Follow the advice at "
75+ <> B.stringUtf8 (D.makeNakedLink "optimize")
76+ <> " for better performance and smaller assets.');"
75
77
76 Mode.Dev _ (Just _) ->
78 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.');"
79+ "console.warn('Compiled in DEBUG mode. Follow the advice at "
80+ <> B.stringUtf8 (D.makeNakedLink "optimize")
81+ <> " for better performance and smaller assets.');"
78
82
79
83
80
84
compiler/src/Reporting/Doc.hs+6−1
@@ -14,7 +14,7 @@ module Reporting.Doc
14
14
15 , stack, reflow, commaSep
15 , stack, reflow, commaSep
16 , toSimpleNote, toSimpleHint, toFancyHint
16 , toSimpleNote, toSimpleHint, toFancyHint
17− , link, fancyLink, reflowLink, makeLink
17+ , link, fancyLink, reflowLink, makeLink, makeNakedLink
18 , args, moreArgs
18 , args, moreArgs
19 , ordinal, intToOrdinal
19 , ordinal, intToOrdinal
20 , cycle
20 , cycle
@@ -156,6 +156,11 @@ makeLink fileName =
156 "<https://elm-lang.org/" <> Pkg.versionToString Compiler.version <> "/" <> fileName <> ">"
156 "<https://elm-lang.org/" <> Pkg.versionToString Compiler.version <> "/" <> fileName <> ">"
157
157
158
158
159+makeNakedLink :: String -> String
160+makeNakedLink fileName =
161+ "https://elm-lang.org/" <> Pkg.versionToString Compiler.version <> "/" <> fileName
162+
163+
159reflowLink :: String -> String -> String -> P.Doc
164reflowLink :: String -> String -> String -> P.Doc
160reflowLink before fileName after =
165reflowLink before fileName after =
161 P.fillSep $
166 P.fillSep $