diff options
Diffstat (limited to 'Logs/Web.hs')
| -rw-r--r-- | Logs/Web.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Logs/Web.hs b/Logs/Web.hs index 0239f2335..ede600ec2 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -18,6 +18,7 @@ module Logs.Web ( ) where import qualified Data.ByteString.Lazy.Char8 as L +import Data.Tuple.Utils import Common.Annex import Logs @@ -70,7 +71,7 @@ knownUrls = do Annex.Branch.withIndex $ do top <- fromRepo Git.repoPath (l, cleanup) <- inRepo $ Git.LsFiles.stagedDetails [top] - r <- mapM (geturls . snd) $ filter (isUrlLog . fst) l + r <- mapM (geturls . snd3) $ filter (isUrlLog . fst3) l void $ liftIO cleanup return $ concat r where |