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

add queueRun

Browse source
This commit is contained in:
Joey Hess 2010-11-08 16:40:02 -04:00
parent 070e8530c1
commit c281747b0e
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Annex.hs
View file

@ -20,6 +20,7 @@ module Annex (
Flag(..), Flag(..),
queue, queue,
queueGet, queueGet,
queueRun,
setConfig setConfig
) where ) where
@ -120,6 +121,15 @@ queueGet = do
state <- get state <- get
return (Internals.repoqueue state) return (Internals.repoqueue state)
{- Runs (and empties) the queue. -}
queueRun :: Annex ()
queueRun = do
state <- get
let q = Internals.repoqueue state
g <- gitRepo
liftIO $ GitQueue.run g q
put state { Internals.repoqueue = GitQueue.empty }
{- Changes a git config setting in both internal state and .git/config -} {- Changes a git config setting in both internal state and .git/config -}
setConfig :: String -> String -> Annex () setConfig :: String -> String -> Annex ()
setConfig key value = do setConfig key value = do