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

cleanup

Browse source
This commit is contained in:
Joey Hess 2012-06-12 13:54:00 -04:00
parent 2e5ea30981
commit d3b9b32f21
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Watch.hs
View file

@ -157,10 +157,8 @@ withStateMVar a = do
{- Runs an Annex action, using the state from the MVar. -} {- Runs an Annex action, using the state from the MVar. -}
runStateMVar :: MVar Annex.AnnexState -> Annex a -> IO a runStateMVar :: MVar Annex.AnnexState -> Annex a -> IO a
runStateMVar mvar a = do runStateMVar mvar a = do
liftIO $ putStrLn "takeMVar"
startstate <- takeMVar mvar startstate <- takeMVar mvar
!(r, newstate) <- Annex.run startstate a !(r, newstate) <- Annex.run startstate a
liftIO $ putStrLn "putMVar"
putMVar mvar newstate putMVar mvar newstate
return r return r