From e78475737636a5d1e0d0a36b475c300cc7bb56cc Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Jul 2011 03:12:05 -0400
Subject: hlint tweaks

Did all sources except Remotes/* and Command/*
---
 LocationLog.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'LocationLog.hs')

diff --git a/LocationLog.hs b/LocationLog.hs
index fe09482b9..768483fa1 100644
--- a/LocationLog.hs
+++ b/LocationLog.hs
@@ -49,8 +49,7 @@ keyLocations key = currentLog $ logFile key
 {- Finds all keys that have location log information.
  - (There may be duplicate keys in the list.) -}
 loggedKeys :: Annex [Key]
-loggedKeys =
-	return . catMaybes . map (logFileKey . takeFileName) =<< Branch.files
+loggedKeys = return . mapMaybe (logFileKey . takeFileName) =<< Branch.files
 
 {- The filename of the log file for a given key. -}
 logFile :: Key -> String
-- 
cgit v1.2.3