git.iko.soy/elk
on master help sign in
switch to ES.String in pattern error code
19baa25Evan Czaplicki
compiler/src/Reporting/Error/Pattern.hs+3−2
compare with master
unifiedsplit
@@ -8,6 +8,7 @@ module Reporting.Error.Pattern
8
8
9import qualified Data.List as List
9import qualified Data.List as List
10
10
11+import qualified Elm.String as ES
11import qualified Nitpick.PatternMatches as P
12import qualified Nitpick.PatternMatches as P
12import Reporting.Doc ((<>))
13import Reporting.Doc ((<>))
13import qualified Reporting.Doc as D
14import qualified Reporting.Doc as D
@@ -117,10 +118,10 @@ patternToDoc context pattern =
117 NonList (P.Literal literal) ->
118 NonList (P.Literal literal) ->
118 case literal of
119 case literal of
119 P.Chr chr ->
120 P.Chr chr ->
120− "'" <> D.fromUtf8 chr <> "'"
121+ "'" <> D.fromChars (ES.toChars chr) <> "'"
121
122
122 P.Str str ->
123 P.Str str ->
123− "\"" <> D.fromUtf8 str <> "\""
124+ "\"" <> D.fromChars (ES.toChars str) <> "\""
124
125
125 P.Int int ->
126 P.Int int ->
126 D.fromInt int
127 D.fromInt int