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

squelch a couple of warnings about moveAnnex return code

Browse source
This commit is contained in:
Joey Hess 2017-02-28 12:49:17 -04:00
parent 3690e9b071
commit 75029536e5
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/TestRemote.hs
View file

@ -225,5 +225,5 @@ randKey sz = withTmpFile "randkey" $ \f h -> do
} }
k <- fromMaybe (error "failed to generate random key") k <- fromMaybe (error "failed to generate random key")
<$> Backend.getKey Backend.Hash.testKeyBackend ks <$> Backend.getKey Backend.Hash.testKeyBackend ks
moveAnnex k f _ <- moveAnnex k f
return k return k

2
Upgrade/V1.hs
View file

@ -74,7 +74,7 @@ moveContent = do
let d = parentDir f let d = parentDir f
liftIO $ allowWrite d liftIO $ allowWrite d
liftIO $ allowWrite f liftIO $ allowWrite f
moveAnnex k f _ <- moveAnnex k f
liftIO $ removeDirectory d liftIO $ removeDirectory d
updateSymlinks :: Annex () updateSymlinks :: Annex ()