digestive-functors-0.3.0.0: src/Text/Digestive/Util.hs

module Text.Digestive.Util
    ( readMaybe
    ) where

-- | 'read' in the 'Maybe' monad.
readMaybe :: Read a => String -> Maybe a
readMaybe str = case readsPrec 1 str of
    [(x, "")] -> Just x
    _         -> Nothing