diff options
Diffstat (limited to 'Annex/Queue.hs')
| -rw-r--r-- | Annex/Queue.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Annex/Queue.hs b/Annex/Queue.hs index df6ba12a2..f49a22069 100644 --- a/Annex/Queue.hs +++ b/Annex/Queue.hs @@ -14,7 +14,7 @@ module Annex.Queue ( import Common.Annex import Annex hiding (new) import qualified Git.Queue -import qualified Git.Config +import Config {- Adds a git command to the queue. -} add :: String -> [CommandParam] -> [FilePath] -> Annex () @@ -43,11 +43,11 @@ get = maybe new return =<< getState repoqueue new :: Annex Git.Queue.Queue new = do - q <- Git.Queue.new <$> fromRepo queuesize + q <- Git.Queue.new <$> queuesize store q return q where - queuesize r = readish =<< Git.Config.getMaybe "annex.queuesize" r + queuesize = readish <$> getConfig "annex.queuesize" "" store :: Git.Queue.Queue -> Annex () store q = changeState $ \s -> s { repoqueue = Just q } |