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

fix build

Browse source
This commit is contained in:
Joey Hess 2014-10-23 15:54:00 -04:00
parent 7489f516bc
commit 6acc6863c5
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/AWS.hs
View file

@ -162,7 +162,7 @@ getEnableS3R :: UUID -> Handler Html
#ifdef WITH_S3
getEnableS3R uuid = do
m <- liftAnnex readRemoteLog
if maybe False S3.isIA (M.lookup uuid m)
if maybe False S3.configIA (M.lookup uuid m)
then redirect $ EnableIAR uuid
else postEnableS3R uuid
#else
@ -224,5 +224,5 @@ previouslyUsedAWSCreds :: Annex (Maybe CredPair)
previouslyUsedAWSCreds = getM gettype [S3.remote, Glacier.remote]
where
gettype t = previouslyUsedCredPair AWS.creds t $
not . S3.isIA . Remote.config
not . S3.configIA . Remote.config
#endif

2
Remote/S3.hs
View file

@ -7,7 +7,7 @@
{-# LANGUAGE TypeFamilies #-}
module Remote.S3 (remote, iaHost, configIA, isIA, iaItemUrl) where
module Remote.S3 (remote, iaHost, configIA, iaItemUrl) where
import qualified Aws as AWS
import qualified Aws.Core as AWS