fix build w/o s3
This commit is contained in:
parent
440d6e331f
commit
8a7e059f54
2 changed files with 6 additions and 0 deletions
|
@ -156,6 +156,7 @@ postAddGlacierR = glacierConfigurator $ do
|
|||
setStandardGroup (Remote.uuid r) SmallArchiveGroup
|
||||
|
||||
getEnableS3R :: UUID -> Handler RepHtml
|
||||
#ifdef WITH_S3
|
||||
getEnableS3R uuid = do
|
||||
m <- liftAnnex readRemoteLog
|
||||
let host = fromMaybe "" $ M.lookup "host" $
|
||||
|
@ -163,6 +164,9 @@ getEnableS3R uuid = do
|
|||
if S3.isIAHost host
|
||||
then redirect $ EnableIAR uuid
|
||||
else postEnableS3R uuid
|
||||
#else
|
||||
getEnableS3R = postEnableS3R
|
||||
#endif
|
||||
|
||||
postEnableS3R :: UUID -> Handler RepHtml
|
||||
#ifdef WITH_S3
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue