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

use forM_ in a few places

Browse source
This commit is contained in:
Joey Hess 2011-01-31 23:27:53 -04:00
parent 27056daccd
commit 755029ae0e
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Upgrade.hs
View file

@ -10,7 +10,7 @@ module Upgrade where
import System.IO.Error (try)
import System.Directory
import Control.Monad.State (liftIO)
import Control.Monad (filterM)
import Control.Monad (filterM, forM_)
import System.Posix.Files
import System.FilePath
@ -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
forM_ keys $ \k -> moveAnnex k $ olddir </> keyFile k
-- update the symlinks to the files
files <- liftIO $ Git.inRepo g [Git.workTree g]