diff options
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/Quvi.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Annex/Quvi.hs b/Annex/Quvi.hs new file mode 100644 index 000000000..a79b17d61 --- /dev/null +++ b/Annex/Quvi.hs @@ -0,0 +1,20 @@ +{- quvi options for git-annex + - + - Copyright 2013 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +{-# LANGUAGE Rank2Types #-} + +module Annex.Quvi where + +import Common.Annex +import qualified Annex +import Utility.Quvi +import Utility.Url + +withQuviOptions :: forall a. (Query a) -> [CommandParam] -> URLString -> Annex a +withQuviOptions a ps url = do + opts <- map Param . annexQuviOptions <$> Annex.getGitConfig + liftIO $ a (ps++opts) url |