diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
| commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
| tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /LocationLog.hs | |
| parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) | |
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'LocationLog.hs')
| -rw-r--r-- | LocationLog.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |