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

tweak

Browse source
This commit is contained in:
Joey Hess 2012-06-11 14:24:13 -04:00
parent 0847a300fc
commit f7dbcd58ff
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Command/Watch.hs
View file

@ -142,11 +142,10 @@ runStateMVar mvar a = do
- Exceptions are ignored, otherwise a whole watcher thread could be crashed. - Exceptions are ignored, otherwise a whole watcher thread could be crashed.
-} -}
runHandler :: MVar Annex.AnnexState -> ChangeChan -> Handler -> FilePath -> IO () runHandler :: MVar Annex.AnnexState -> ChangeChan -> Handler -> FilePath -> IO ()
runHandler st changechan hook file = handle =<< tryIO (runStateMVar st go) runHandler st changechan handler file =
either (putStrLn . show) return =<< tryIO (runStateMVar st go)
where where
go = maybe noop (signalChange changechan) =<< hook file go = maybe noop (signalChange changechan) =<< handler file
handle (Right ()) = return ()
handle (Left e) = putStrLn $ show e
{- Handlers call this when they made a change that needs to get committed. -} {- Handlers call this when they made a change that needs to get committed. -}
madeChange :: FilePath -> String -> Annex (Maybe Change) madeChange :: FilePath -> String -> Annex (Maybe Change)