src/Data/Maybe/Read.hs


1
2
3
4
5
6
7
8

module Data.Maybe.Read (readMaybe) where

-- readMaybe function from "Learn You a Haskell"

readMaybe    :: (Read a) => String -> Maybe a
readMaybe st = case reads st of
    [(x,"")] -> Just x
    _        -> Nothing