diff options
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/Quvi.hs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Annex/Quvi.hs b/Annex/Quvi.hs deleted file mode 100644 index 79b9ee6fa..000000000 --- a/Annex/Quvi.hs +++ /dev/null @@ -1,33 +0,0 @@ -{- quvi options for git-annex - - - - Copyright 2013 Joey Hess <id@joeyh.name> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -{-# LANGUAGE Rank2Types #-} - -module Annex.Quvi where - -import Annex.Common -import qualified Annex -import Utility.Quvi -import Utility.Url - -withQuviOptions :: forall a. Query a -> [QuviParams] -> URLString -> Annex a -withQuviOptions a ps url = do - v <- quviVersion - opts <- return [] - liftIO $ a v (concatMap (\mkp -> mkp v) ps ++ opts) url - -quviSupported :: URLString -> Annex Bool -quviSupported u = liftIO . flip supported u =<< quviVersion - -quviVersion :: Annex QuviVersion -quviVersion = go =<< Annex.getState Annex.quviversion - where - go (Just v) = return v - go Nothing = do - v <- liftIO probeVersion - Annex.changeState $ \s -> s { Annex.quviversion = Just v } - return v |