From 08308dc9b356ecdf9dd355836deabad196c42cfd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 10 May 2015 15:28:13 -0400 Subject: [PATCH] fix build warning with ghc 7.10 --- Annex/Content.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Annex/Content.hs b/Annex/Content.hs index bbf87880b8..dc60dfe1a9 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -500,9 +500,9 @@ getKeysPresent keyloc = do direct <- isDirect dir <- fromRepo gitAnnexObjectDir s <- getstate direct - liftIO $ traverse s direct (2 :: Int) dir + liftIO $ walk s direct (2 :: Int) dir where - traverse s direct depth dir = do + walk s direct depth dir = do contents <- catchDefaultIO [] (dirContents dir) if depth == 0 then do @@ -510,7 +510,7 @@ getKeysPresent keyloc = do let keys = mapMaybe (fileKey . takeFileName) contents' continue keys [] else do - let deeper = traverse s direct (depth - 1) + let deeper = walk s direct (depth - 1) continue [] (map deeper contents) continue keys [] = return keys continue keys (a:as) = do