From ba6088b249902d456177af3c14f20f43b6def1fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 23 Jan 2012 17:00:10 -0400 Subject: rename readMaybe to readish a stricter (but also partial) readMaybe is getting added to base --- Seek.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Seek.hs') diff --git a/Seek.hs b/Seek.hs index 8e935c90c..b4e1218e2 100644 --- a/Seek.hs +++ b/Seek.hs @@ -36,7 +36,7 @@ withAttrFilesInGit attr a params = do withNumCopies :: (Maybe Int -> FilePath -> CommandStart) -> CommandSeek withNumCopies a params = withAttrFilesInGit "annex.numcopies" go params where - go (file, v) = a (readMaybe v) file + go (file, v) = a (readish v) file withBackendFilesInGit :: (BackendFile -> CommandStart) -> CommandSeek withBackendFilesInGit a params = -- cgit v1.2.3