@@ -26,7 +26,6 @@ import Language.PureScript.Values
2626import Language.PureScript.Names
2727import Language.PureScript.CodeGen.JS.AST
2828import Data.Maybe (mapMaybe)
29−import Text.Read (readMaybe)
3029
3130usedNames :: (Data d) => d -> [Ident]
3231usedNames val = nub $ everything (++) (mkQ [] namesV `extQ` namesS `extQ` namesB `extQ` namesJS) val
@@ -69,3 +68,8 @@ firstUnusedName val =
6968 toUnknown :: Ident -> Maybe Int
7069 toUnknown (Ident ('_' : s)) = readMaybe s
7170 toUnknown _ = Nothing
71+
72+readMaybe :: String -> Maybe Int
73+readMaybe s = case reads s of
74+ [(n, "")] -> Just n
75+ _ -> Nothing