From 6543d5406c64bb00a58e74305ec9ca09a49faf0b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 3 Apr 2013 03:52:41 -0400 Subject: hlint --- Logs/Unused.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Logs/Unused.hs') diff --git a/Logs/Unused.hs b/Logs/Unused.hs index bef78a992..437b01f71 100644 --- a/Logs/Unused.hs +++ b/Logs/Unused.hs @@ -31,7 +31,7 @@ readUnusedLog :: FilePath -> Annex UnusedMap readUnusedLog prefix = do f <- fromRepo $ gitAnnexUnusedLog prefix ifM (liftIO $ doesFileExist f) - ( M.fromList . catMaybes . map parse . lines + ( M.fromList . mapMaybe parse . lines <$> liftIO (readFile f) , return M.empty ) -- cgit v1.2.3