diff options
author | Joey Hess <joey@kitenet.net> | 2012-01-23 17:00:10 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-01-23 17:00:10 -0400 |
commit | ba6088b249902d456177af3c14f20f43b6def1fd (patch) | |
tree | 43bd6cf141c63693732d4066c0d9590c0c077822 /Utility/PartialPrelude.hs | |
parent | 5e172b43c4dc5d779e4f1af5c1376c9a8ebc60a4 (diff) |
rename readMaybe to readish
a stricter (but also partial) readMaybe is getting added to base
Diffstat (limited to 'Utility/PartialPrelude.hs')
-rw-r--r-- | Utility/PartialPrelude.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/PartialPrelude.hs b/Utility/PartialPrelude.hs index dbdf4fa5c..6efa093fd 100644 --- a/Utility/PartialPrelude.hs +++ b/Utility/PartialPrelude.hs @@ -10,7 +10,7 @@ module Utility.PartialPrelude where import qualified Data.Maybe {- read should be avoided, as it throws an error - - Instead, use: readMaybe -} + - Instead, use: readish -} read :: Read a => String -> a read = Prelude.read @@ -42,8 +42,8 @@ last = Prelude.last - readMaybe is available in Text.Read in new versions of GHC, - but that one requires the entire string to be consumed. -} -readMaybe :: Read a => String -> Maybe a -readMaybe s = case reads s of +readish :: Read a => String -> Maybe a +readish s = case reads s of ((x,_):_) -> Just x _ -> Nothing |