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 /Types | |
| parent | 5e172b43c4dc5d779e4f1af5c1376c9a8ebc60a4 (diff) | |
rename readMaybe to readish
a stricter (but also partial) readMaybe is getting added to base
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Key.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Types/Key.hs b/Types/Key.hs index 165f814d4..f258f5c4c 100644 --- a/Types/Key.hs +++ b/Types/Key.hs @@ -69,8 +69,8 @@ readKey s = if key == Just stubKey then Nothing else key findfields _ v = v addbackend k v = Just k { keyBackendName = v } - addfield 's' k v = Just k { keySize = readMaybe v } - addfield 'm' k v = Just k { keyMtime = readMaybe v } + addfield 's' k v = Just k { keySize = readish v } + addfield 'm' k v = Just k { keyMtime = readish v } addfield _ _ _ = Nothing prop_idempotent_key_read_show :: Key -> Bool |