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

use mapM_

Browse source
This commit is contained in:
Joey Hess 2011-01-31 13:52:11 -04:00
parent 4a0fe24f39
commit d007e58a54
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Upgrade.hs
View file

@ -41,7 +41,7 @@ upgradeFrom0 = do
-- do the reorganisation of the files
let olddir = gitAnnexDir g
keys <- getKeysPresent0' olddir
_ <- mapM (\k -> moveAnnex k $ olddir </> keyFile k) keys
mapM_ (\k -> moveAnnex k $ olddir </> keyFile k) keys
-- update the symlinks to the files
files <- liftIO $ Git.inRepo g [Git.workTree g]