purescript 0.2.1.1 → 0.2.1.2
raw patch · 2 files changed
+6/−2 lines, 2 filesdep ~base
Dependency ranges changed: base
Files
- purescript.cabal +1/−1
- src/Language/PureScript/Scope.hs +5/−1
purescript.cabal view
@@ -1,5 +1,5 @@ name: purescript-version: 0.2.1.1+version: 0.2.1.2 cabal-version: >=1.8 build-type: Simple license: MIT
src/Language/PureScript/Scope.hs view
@@ -26,7 +26,6 @@ import Language.PureScript.Names import Language.PureScript.CodeGen.JS.AST import Data.Maybe (mapMaybe)-import Text.Read (readMaybe) usedNames :: (Data d) => d -> [Ident] usedNames val = nub $ everything (++) (mkQ [] namesV `extQ` namesS `extQ` namesB `extQ` namesJS) val@@ -69,3 +68,8 @@ toUnknown :: Ident -> Maybe Int toUnknown (Ident ('_' : s)) = readMaybe s toUnknown _ = Nothing++readMaybe :: String -> Maybe Int+readMaybe s = case reads s of+ [(n, "")] -> Just n+ _ -> Nothing