summaryrefslogtreecommitdiff
path: root/Annex/Queue.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-03-22 00:23:15 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-03-22 17:32:47 -0400
commitf1398b558316a936690a8f3b01493f498d15b659 (patch)
treeac58768f5e421b985f3a2ed135bb338b03a991ec /Annex/Queue.hs
parent4eb51126819fe01a003688267f481c6d8014ef47 (diff)
use new getConfig
Diffstat (limited to 'Annex/Queue.hs')
-rw-r--r--Annex/Queue.hs6
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 }