diff --git a/compiler/Generate/JavaScript/Ports.hs b/compiler/Generate/JavaScript/Ports.hs index e9d5af7..45b4741 100644 --- a/compiler/Generate/JavaScript/Ports.hs +++ b/compiler/Generate/JavaScript/Ports.hs @@ -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