summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhilFreeman <>2013-12-26 23:22:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2013-12-26 23:22:00 (GMT)
commitd4114a5ab787288592010d9ddb50e810adeaf2c4 (patch)
treed6b70e4c4b84be2ba43a6f9ddc716d015b3282f9
parent54641b0699750354c3726520d3d0dbc6c5a13242 (diff)
version 0.2.1.10.2.1.1
-rw-r--r--purescript.cabal2
-rw-r--r--src/Language/PureScript/CaseDeclarations.hs3
2 files changed, 4 insertions, 1 deletions
diff --git a/purescript.cabal b/purescript.cabal
index a7a8af8..c8f7405 100644
--- a/purescript.cabal
+++ b/purescript.cabal
@@ -1,5 +1,5 @@
name: purescript
-version: 0.2.1
+version: 0.2.1.1
cabal-version: >=1.8
build-type: Simple
license: MIT
diff --git a/src/Language/PureScript/CaseDeclarations.hs b/src/Language/PureScript/CaseDeclarations.hs
index b482c1d..5e597cf 100644
--- a/src/Language/PureScript/CaseDeclarations.hs
+++ b/src/Language/PureScript/CaseDeclarations.hs
@@ -39,6 +39,9 @@ toDecls ds@(ValueDeclaration ident bs _ _ : _) = do
unless (all ((== map length bs) . map length . fst) tuples) $
throwError $ "Argument list lengths differ in declaration " ++ show ident
return [makeCaseDeclaration ident tuples]
+toDecls [ModuleDeclaration name decls] = do
+ desugared <- desugarCases decls
+ return [ModuleDeclaration name desugared]
toDecls ds = return ds
toTuple :: Declaration -> ([[Binder]], (Maybe Guard, Value))