purescript 0.2.1 → 0.2.1.1

raw patch · 2 files changed

+4/−1 lines, 2 files

Files

purescript.cabal +1/−1
src/Language/PureScript/CaseDeclarations.hs +3/−0

purescript.cabal view

@@ -1,5 +1,5 @@ name: purescript-version: 0.2.1+version: 0.2.1.1 cabal-version: >=1.8 build-type: Simple license: MIT

src/Language/PureScript/CaseDeclarations.hs view

@@ -39,6 +39,9 @@   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))