Provide better information for module name JSON decoder failures
commitbd97163703b4e3d9911c11961062af6132165f2e
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateMon 22 Jan 2018, 17:06 (9 years ago)
parentedf2078
src/Elm/Compiler/Module.hs+4−7
@@ -98,15 +98,12 @@ encode =
9898 Encode.text
9999
100100
101−data Error = BadModuleName
102−
103−
104−decoder :: Decode.Decoder Error Raw
101+decoder :: Decode.Decoder Text.Text Raw
105102decoder =
106103 do txt <- Decode.text
107104 case nameFromText txt of
108− Nothing ->
109− Decode.fail BadModuleName
110−
111105 Just name ->
112106 Decode.succeed name
107+
108+ Nothing ->
109+ Decode.fail txt