diff options
Diffstat (limited to 'Upgrade.hs')
| -rw-r--r-- | Upgrade.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Upgrade.hs b/Upgrade.hs index 1e70e68d5..9c5a57a0c 100644 --- a/Upgrade.hs +++ b/Upgrade.hs @@ -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] |