git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Make compatible with GHC 7.4
fe0c18bPhil Freeman
purescript.cabal+1−1
compare with golang
unifiedsplit
@@ -1,5 +1,5 @@
1name: purescript
1name: purescript
2−version: 0.2.1.1
2+version: 0.2.1.2
3cabal-version: >=1.8
3cabal-version: >=1.8
4build-type: Simple
4build-type: Simple
5license: MIT
5license: MIT
src/Language/PureScript/Scope.hs+5−1
@@ -26,7 +26,6 @@ import Language.PureScript.Values
26import Language.PureScript.Names
26import Language.PureScript.Names
27import Language.PureScript.CodeGen.JS.AST
27import Language.PureScript.CodeGen.JS.AST
28import Data.Maybe (mapMaybe)
28import Data.Maybe (mapMaybe)
29−import Text.Read (readMaybe)
30
29
31usedNames :: (Data d) => d -> [Ident]
30usedNames :: (Data d) => d -> [Ident]
32usedNames val = nub $ everything (++) (mkQ [] namesV `extQ` namesS `extQ` namesB `extQ` namesJS) val
31usedNames val = nub $ everything (++) (mkQ [] namesV `extQ` namesS `extQ` namesB `extQ` namesJS) val
@@ -69,3 +68,8 @@ firstUnusedName val =
69 toUnknown :: Ident -> Maybe Int
68 toUnknown :: Ident -> Maybe Int
70 toUnknown (Ident ('_' : s)) = readMaybe s
69 toUnknown (Ident ('_' : s)) = readMaybe s
71 toUnknown _ = Nothing
70 toUnknown _ = Nothing
71+
72+readMaybe :: String -> Maybe Int
73+readMaybe s = case reads s of
74+ [(n, "")] -> Just n
75+ _ -> Nothing