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

stub syncer thread and commit channel

Browse source
This commit is contained in:
Joey Hess 2012-06-22 13:39:44 -04:00
parent 3ee44cf8fe
commit 28e28bc043
8 changed files with 125 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/ThreadedMonad.hs
View file

@ -32,7 +32,8 @@ withThreadState a = do
{- Runs an Annex action, using the state from the MVar.
-
- This serializes calls by threads. -}
- This serializes calls by threads; only one thread can run in Annex at a
- time. -}
runThreadState :: ThreadState -> Annex a -> IO a
runThreadState mvar a = do
startstate <- takeMVar mvar