diff options
author | Joey Hess <joey@kitenet.net> | 2012-03-22 00:23:15 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-03-22 17:32:47 -0400 |
commit | f1398b558316a936690a8f3b01493f498d15b659 (patch) | |
tree | ac58768f5e421b985f3a2ed135bb338b03a991ec /Annex/Queue.hs | |
parent | 4eb51126819fe01a003688267f481c6d8014ef47 (diff) |
use new getConfig
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 } |