summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPhilFreeman <>2014-03-29 20:43:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2014-03-29 20:43:00 (GMT)
commita63d5c3b5570b2d5db174a8f7e07fb051c4915b7 (patch)
tree4175618108c44f2bd9a709a935db49fa9b62928e
parent86a078afc718ab31015e4901f02e7d40f2938f67 (diff)
version 0.4.11.10.4.11.1
-rw-r--r--purescript.cabal2
-rw-r--r--src/Language/PureScript/Optimizer/Common.hs2
-rw-r--r--src/Language/PureScript/Pretty/Values.hs2
3 files changed, 3 insertions, 3 deletions
diff --git a/purescript.cabal b/purescript.cabal
index 27bcc28..1036097 100644
--- a/purescript.cabal
+++ b/purescript.cabal
@@ -1,5 +1,5 @@
name: purescript
-version: 0.4.11
+version: 0.4.11.1
cabal-version: >=1.8
build-type: Custom
license: MIT
diff --git a/src/Language/PureScript/Optimizer/Common.hs b/src/Language/PureScript/Optimizer/Common.hs
index 3a6a07b..546c54f 100644
--- a/src/Language/PureScript/Optimizer/Common.hs
+++ b/src/Language/PureScript/Optimizer/Common.hs
@@ -47,7 +47,7 @@ isReassigned var1 = everything (||) (mkQ False check)
check _ = False
isRebound :: (Data d) => JS -> d -> Bool
-isRebound js d = any (`isReassigned` d) (everything (++) (mkQ [] variablesOf) js)
+isRebound js d = any (\v -> isReassigned v d || isUpdated v d) (everything (++) (mkQ [] variablesOf) js)
where
variablesOf (JSVar var) = [var]
variablesOf _ = []
diff --git a/src/Language/PureScript/Pretty/Values.hs b/src/Language/PureScript/Pretty/Values.hs
index 32f923a..cdb2cd1 100644
--- a/src/Language/PureScript/Pretty/Values.hs
+++ b/src/Language/PureScript/Pretty/Values.hs
@@ -72,7 +72,7 @@ literals = mkPattern' match
, withIndent $ prettyPrintMany prettyPrintDoNotationElement els
, currentIndent
]
- match (TypeClassDictionary _ _) = error "Type class dictionary was not replaced"
+ match (TypeClassDictionary _ _) = return "<<dict>>"
match (TypedValue _ val _) = prettyPrintValue' val
match (PositionedValue _ val) = prettyPrintValue' val
match _ = mzero