git.iko.soy/elk
on master help sign in
Flip the arguments to Json.Decode.andThen in generated JS
7e69419Evan Czaplicki
src/Generate/JavaScript/Foreign.hs+1−1
compare with master
unifiedsplit
@@ -214,6 +214,6 @@ toRecord fields =
214 to "succeed" <== [ Opt.Record (map toFieldExpr fields) ]
214 to "succeed" <== [ Opt.Record (map toFieldExpr fields) ]
215
215
216 andThen (key, tipe) decoder =
216 andThen (key, tipe) decoder =
217− to "andThen" <== [ field key (decode tipe), Opt.Function [key] decoder ]
217+ to "andThen" <== [ Opt.Function [key] decoder, field key (decode tipe) ]
218 in
218 in
219 List.foldr andThen finalDecoder fields
219 List.foldr andThen finalDecoder fields