summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhilFreeman <>2014-01-26 21:57:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2014-01-26 21:57:00 (GMT)
commite29a60804b4acdeb46626233ee4001384978dff1 (patch)
tree9ff93331de12876ccb0728a17ec3a9c97e6f2487
parent420422183cd0b2518d111705486d389ccb9e1cba (diff)
version 0.3.30.3.3
-rw-r--r--purescript.cabal2
-rw-r--r--src/Language/PureScript/CodeGen/JS.hs2
2 files changed, 3 insertions, 1 deletions
diff --git a/purescript.cabal b/purescript.cabal
index db00cd1..a3b3923 100644
--- a/purescript.cabal
+++ b/purescript.cabal
@@ -1,5 +1,5 @@
name: purescript
-version: 0.3.2
+version: 0.3.3
cabal-version: >=1.8
build-type: Simple
license: MIT
diff --git a/src/Language/PureScript/CodeGen/JS.hs b/src/Language/PureScript/CodeGen/JS.hs
index e4b9836..158dd67 100644
--- a/src/Language/PureScript/CodeGen/JS.hs
+++ b/src/Language/PureScript/CodeGen/JS.hs
@@ -78,6 +78,8 @@ declToJs _ mp (DataDeclaration _ _ ctors) _ =
(JSObjectLiteral [ ("ctor", JSStringLiteral (show (Qualified (Just mp) pn)))
, ("value", JSVar (Ident "value")) ])])
in [ ctorJs, setProperty ctor (JSVar (Ident ctor)) mp ]
+declToJs opts mp (DataBindingGroupDeclaration ds) e =
+ Just $ concat $ mapMaybe (flip (declToJs opts mp) e) ds
declToJs _ mp (ExternDeclaration importTy ident (Just js) _) _ | importTy /= ForeignImport =
Just [ js
, setProperty (identToJs ident) (JSVar ident) mp ]