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

One more #ifdef WITH_S3

Browse source
This commit is contained in:
Nicolas Pouillard 2012-10-18 16:14:49 +02:00 committed by Joey Hess
parent 6b0a6cd226
commit 03ba7d6a87
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators.hs
View file

@ -5,7 +5,7 @@
- Licensed under the GNU AGPL version 3 or higher. - Licensed under the GNU AGPL version 3 or higher.
-} -}
{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} {-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes, CPP #-}
module Assistant.WebApp.Configurators where module Assistant.WebApp.Configurators where
@ -119,7 +119,9 @@ repoList onlyconfigured includehere
Just c -> case M.lookup "type" c of Just c -> case M.lookup "type" c of
Just "rsync" -> u `enableswith` EnableRsyncR Just "rsync" -> u `enableswith` EnableRsyncR
Just "directory" -> u `enableswith` EnableDirectoryR Just "directory" -> u `enableswith` EnableDirectoryR
#ifdef WITH_S3
Just "S3" -> u `enableswith` EnableS3R Just "S3" -> u `enableswith` EnableS3R
#endif
_ -> Nothing _ -> Nothing
u `enableswith` r = Just (u, DisabledRepoActions $ r u) u `enableswith` r = Just (u, DisabledRepoActions $ r u)
list l = runAnnex [] $ do list l = runAnnex [] $ do