git.iko.soy/elk
on master help sign in
Stop using (:=) in generated JS
849668aEvan Czaplicki
src/Generate/JavaScript/Foreign.hs+4−4
compare with master
unifiedsplit
@@ -156,9 +156,9 @@ to name =
156 Opt.Var (inJsonDecode name)
156 Opt.Var (inJsonDecode name)
157
157
158
158
159−(=:) :: String -> Opt.Expr -> Opt.Expr
159+field :: String -> Opt.Expr -> Opt.Expr
160−(=:) name decoder =
160+field name decoder =
161− Opt.Binop (inJsonDecode ":=") (Opt.Literal (Literal.Str name)) decoder
161+ to "field" <== [ Opt.Literal (Literal.Str name), decoder ]
162
162
163
163
164(<==) :: Opt.Expr -> [Opt.Expr] -> Opt.Expr
164(<==) :: Opt.Expr -> [Opt.Expr] -> Opt.Expr
@@ -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" <== [ key =: decode tipe, Opt.Function [key] decoder ]
217+ to "andThen" <== [ field key (decode tipe), Opt.Function [key] decoder ]
218 in
218 in
219 List.foldr andThen finalDecoder fields
219 List.foldr andThen finalDecoder fields