git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Code for mutually recursive types not being generated #127
commit5159dfd16000687d2599d7b56c75b3a7a55bb726 authorPhil Freeman <paf31@cantab.net> dateSun 26 Jan 2014, 13:56 (13 years ago) parent11d65b2
2 files changed+3−1
compare with golang
unifiedsplit
purescript.cabal+1−1 src/Language/PureScript/CodeGen/JS.hs+2
purescript.cabal+1−1
@@ -1,5 +1,5 @@
11name: purescript
2−version: 0.3.2
2+version: 0.3.3
33cabal-version: >=1.8
44build-type: Simple
55license: MIT
src/Language/PureScript/CodeGen/JS.hs+2
@@ -78,6 +78,8 @@ declToJs _ mp (DataDeclaration _ _ ctors) _ =
7878 (JSObjectLiteral [ ("ctor", JSStringLiteral (show (Qualified (Just mp) pn)))
7979 , ("value", JSVar (Ident "value")) ])])
8080 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
8183declToJs _ mp (ExternDeclaration importTy ident (Just js) _) _ | importTy /= ForeignImport =
8284 Just [ js
8385 , setProperty (identToJs ident) (JSVar ident) mp ]