git.iko.soy/elk
on master help sign in
Provide better information for module name JSON decoder failures
bd97163Evan Czaplicki
src/Elm/Compiler/Module.hs+4−7
compare with master
unifiedsplit
@@ -98,15 +98,12 @@ encode =
98 Encode.text
98 Encode.text
99
99
100
100
101−data Error = BadModuleName
102−
103−
104−decoder :: Decode.Decoder Error Raw
101+decoder :: Decode.Decoder Text.Text Raw
105decoder =
102decoder =
106 do txt <- Decode.text
103 do txt <- Decode.text
107 case nameFromText txt of
104 case nameFromText txt of
108− Nothing ->
109− Decode.fail BadModuleName
110−
111 Just name ->
105 Just name ->
112 Decode.succeed name
106 Decode.succeed name
107+
108+ Nothing ->
109+ Decode.fail txt