mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use new getConfig

Browse source
This commit is contained in:
Joey Hess 2012-03-22 00:23:15 -04:00
parent 4eb5112681
commit f1398b5583
8 changed files with 16 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Queue.hs
View file

@ -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 }