summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhilFreeman <>2014-04-02 22:35:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2014-04-02 22:35:00 (GMT)
commit4b7b77267765621973e166453940e74a7449f883 (patch)
tree19e9886ad7cdd8a023dd352d5742aac7a1e9a11a
parent69b8aa4a107f098bb7b5ca80ea52ecfdd8ac43c4 (diff)
version 0.4.12.10.4.12.1
-rw-r--r--purescript.cabal2
-rw-r--r--src/Language/PureScript/TypeChecker.hs7
2 files changed, 5 insertions, 4 deletions
diff --git a/purescript.cabal b/purescript.cabal
index 4ec3812..bd3f256 100644
--- a/purescript.cabal
+++ b/purescript.cabal
@@ -1,5 +1,5 @@
name: purescript
-version: 0.4.12
+version: 0.4.12.1
cabal-version: >=1.8
build-type: Custom
license: MIT
diff --git a/src/Language/PureScript/TypeChecker.hs b/src/Language/PureScript/TypeChecker.hs
index 4432855..9a34cae 100644
--- a/src/Language/PureScript/TypeChecker.hs
+++ b/src/Language/PureScript/TypeChecker.hs
@@ -180,9 +180,10 @@ typeCheckAll mainModuleName moduleName (d@(FixityDeclaration _ name) : rest) = d
typeCheckAll mainModuleName currentModule (d@(ImportDeclaration moduleName _ _) : rest) = do
env <- getEnv
let instances = filter (\tcd -> let Qualified (Just mn) _ = tcdName tcd in moduleName == mn) (typeClassDictionaries env)
- forM_ instances $ \tcd -> do
- let (Qualified _ ident) = tcdName tcd
- addTypeClassDictionaries [tcd { tcdName = Qualified (Just currentModule) ident, tcdType = TCDAlias (canonicalizeDictionary tcd) }]
+ addTypeClassDictionaries [ tcd { tcdName = Qualified (Just currentModule) ident, tcdType = TCDAlias (canonicalizeDictionary tcd) }
+ | tcd <- instances
+ , let (Qualified _ ident) = tcdName tcd
+ ]
ds <- typeCheckAll mainModuleName currentModule rest
return $ d : ds
typeCheckAll mainModuleName moduleName (d@(TypeClassDeclaration pn args tys) : rest) = do