parent
a5684ff356
commit
c4628749e1
1 changed files with 1 additions and 1 deletions
|
@ -109,7 +109,7 @@ out tipe x =
|
|||
| ctor == "Maybe.Maybe" ->
|
||||
CondExpr () (equal (DotRef () x (var "ctor")) (string "Nothing"))
|
||||
(NullLit ())
|
||||
(DotRef () x (var "_0"))
|
||||
(out t (DotRef () x (var "_0")))
|
||||
|
||||
| ctor == "_List" ->
|
||||
DotRef () (obj "_J.fromList" <| x) (var "map") <| outgoing t
|
||||
|
|
Loading…
Reference in a new issue