Fix issue #491

contents of Maybe were not converted to JS on export
2014-02-08 17:05:52 +01:00 · 2014-02-08 17:05:52 +01:00 · c4628749e1
commit c4628749e1
parent a5684ff356
1 changed files with 1 additions and 1 deletions
--- 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