diff options
Diffstat (limited to 'src/Data/Maybe/Read.hs')
| -rw-r--r-- | src/Data/Maybe/Read.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Data/Maybe/Read.hs b/src/Data/Maybe/Read.hs new file mode 100644 index 0000000..909dc9c --- /dev/null +++ b/src/Data/Maybe/Read.hs @@ -0,0 +1,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 |