diff --git a/Command/Watch.hs b/Command/Watch.hs index 0ee932dba2..1c4f61a55f 100644 --- a/Command/Watch.hs +++ b/Command/Watch.hs @@ -157,10 +157,8 @@ withStateMVar a = do {- Runs an Annex action, using the state from the MVar. -} runStateMVar :: MVar Annex.AnnexState -> Annex a -> IO a runStateMVar mvar a = do - liftIO $ putStrLn "takeMVar" startstate <- takeMVar mvar !(r, newstate) <- Annex.run startstate a - liftIO $ putStrLn "putMVar" putMVar mvar newstate return r