mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

rename traverse to walk since Data.Traversable is imported by default in ghc 7.10

Browse source
This commit is contained in:
Joey Hess 2015-05-10 16:43:09 -04:00
parent aea9d1d45a
commit 64a4553e0b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Perms.hs
View file

@ -69,14 +69,14 @@ annexFileMode = withShared $ return . go
{- Creates a directory inside the gitAnnexDir, including any parent {- Creates a directory inside the gitAnnexDir, including any parent
- directories. Makes directories with appropriate permissions. -} - directories. Makes directories with appropriate permissions. -}
createAnnexDirectory :: FilePath -> Annex () createAnnexDirectory :: FilePath -> Annex ()
createAnnexDirectory dir = traverse dir [] =<< top createAnnexDirectory dir = walk dir [] =<< top
where where
top = parentDir <$> fromRepo gitAnnexDir top = parentDir <$> fromRepo gitAnnexDir
traverse d below stop walk d below stop
| d `equalFilePath` stop = done | d `equalFilePath` stop = done
| otherwise = ifM (liftIO $ doesDirectoryExist d) | otherwise = ifM (liftIO $ doesDirectoryExist d)
( done ( done
, traverse (parentDir d) (d:below) stop , walk (parentDir d) (d:below) stop
) )
where where
done = forM_ below $ \p -> do done = forM_ below $ \p -> do