git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Code for mutually recursive types not being generated #127
5159dfdPhil Freeman
purescript.cabal+1−1
compare with golang
unifiedsplit
@@ -1,5 +1,5 @@
1name: purescript
1name: purescript
2−version: 0.3.2
2+version: 0.3.3
3cabal-version: >=1.8
3cabal-version: >=1.8
4build-type: Simple
4build-type: Simple
5license: MIT
5license: MIT
src/Language/PureScript/CodeGen/JS.hs+2
@@ -78,6 +78,8 @@ declToJs _ mp (DataDeclaration _ _ ctors) _ =
78 (JSObjectLiteral [ ("ctor", JSStringLiteral (show (Qualified (Just mp) pn)))
78 (JSObjectLiteral [ ("ctor", JSStringLiteral (show (Qualified (Just mp) pn)))
79 , ("value", JSVar (Ident "value")) ])])
79 , ("value", JSVar (Ident "value")) ])])
80 in [ ctorJs, setProperty ctor (JSVar (Ident ctor)) mp ]
80 in [ ctorJs, setProperty ctor (JSVar (Ident ctor)) mp ]
81+declToJs opts mp (DataBindingGroupDeclaration ds) e =
82+ Just $ concat $ mapMaybe (flip (declToJs opts mp) e) ds
81declToJs _ mp (ExternDeclaration importTy ident (Just js) _) _ | importTy /= ForeignImport =
83declToJs _ mp (ExternDeclaration importTy ident (Just js) _) _ | importTy /= ForeignImport =
82 Just [ js
84 Just [ js
83 , setProperty (identToJs ident) (JSVar ident) mp ]
85 , setProperty (identToJs ident) (JSVar ident) mp ]