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

refactor

Browse source
This commit is contained in:
Joey Hess 2015-08-17 10:42:14 -04:00
parent 2ff22a383a
commit 1cd3b7ddf0
7 changed files with 21 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Glacier.hs
View file

@ -18,6 +18,7 @@ import qualified Git
import Config
import Config.Cost
import Remote.Helper.Special
import Remote.Helper.Messages
import qualified Remote.Helper.AWS as AWS
import Creds
import Utility.Metered
@ -176,7 +177,7 @@ remove r k = glacierAction r
checkKey :: Remote -> CheckPresent
checkKey r k = do
showAction $ "checking " ++ name r
showChecking r
go =<< glacierEnv (config r) (uuid r)
where
go Nothing = error "cannot check glacier"