diff options
| author | PhilFreeman <> | 2014-03-29 20:43:00 (GMT) |
|---|---|---|
| committer | hdiff <hdiff@hdiff.luite.com> | 2014-03-29 20:43:00 (GMT) |
| commit | a63d5c3b5570b2d5db174a8f7e07fb051c4915b7 (patch) | |
| tree | 4175618108c44f2bd9a709a935db49fa9b62928e | |
| parent | 86a078afc718ab31015e4901f02e7d40f2938f67 (diff) | |
version 0.4.11.10.4.11.1
| -rw-r--r-- | purescript.cabal | 2 | ||||
| -rw-r--r-- | src/Language/PureScript/Optimizer/Common.hs | 2 | ||||
| -rw-r--r-- | src/Language/PureScript/Pretty/Values.hs | 2 |
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 |