diff options
| -rw-r--r-- | Command/TestRemote.hs | 2 | ||||
| -rw-r--r-- | Upgrade/V1.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs index 78921b856..c8a993666 100644 --- a/Command/TestRemote.hs +++ b/Command/TestRemote.hs @@ -225,5 +225,5 @@ randKey sz = withTmpFile "randkey" $ \f h -> do } k <- fromMaybe (error "failed to generate random key") <$> Backend.getKey Backend.Hash.testKeyBackend ks - moveAnnex k f + _ <- moveAnnex k f return k diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs index d0f9e51d3..01741bbeb 100644 --- a/Upgrade/V1.hs +++ b/Upgrade/V1.hs @@ -74,7 +74,7 @@ moveContent = do let d = parentDir f liftIO $ allowWrite d liftIO $ allowWrite f - moveAnnex k f + _ <- moveAnnex k f liftIO $ removeDirectory d updateSymlinks :: Annex () |