This commit is contained in:
Joey Hess 2011-12-15 18:23:07 -04:00
parent 95d2391f58
commit 9901fc04a0
2 changed files with 12 additions and 7 deletions

View file

@ -21,12 +21,6 @@ hGetContentsStrict = hGetContents >=> \s -> length s `seq` return s
readFileStrict :: FilePath -> IO String
readFileStrict = readFile >=> \s -> length s `seq` return s
{- Attempts to read a value from a String. -}
readMaybe :: (Read a) => String -> Maybe a
readMaybe s = case reads s of
((x,_):_) -> Just x
_ -> Nothing
{- Like break, but the character matching the condition is not included
- in the second result list.
-