readMaybe :: Read a => String -> Maybe a
readMaybe s = case readEitherNote "" s of
                Left _  -> Nothing
                Right a -> Just a
readMaybe :: Read a => String -> Maybe a
readMaybe s = case readEitherNote "" s of
                Left _  -> Nothing
                Right a -> Just a
readMaybe s = case readEitherNote "" s of
                Left _  -> Nothing
                Right a -> Just a