diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-02-28 12:49:17 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-02-28 12:49:17 -0400 |
commit | a96b8b74311a52cc04e3d5e0d1d67628aa996693 (patch) | |
tree | 5a75db18529e00c5c46b9229fa83dedbc1a1238d | |
parent | 0658d8974218cd67112bc13f77292b0e111b7d06 (diff) |
squelch a couple of warnings about moveAnnex return code
-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 () |