diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-04-21 23:32:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-04-21 23:32:33 -0400 |
| commit | ed79596b758935a3f22bf6803bc082a6bbe10f58 (patch) | |
| tree | 885a8a50e68dafb39ec886cb31aa4c549fbeb35e /Remote/Helper/Hooks.hs | |
| parent | bee420bd2d0cbe16489b061b208083e2b8ba9d0e (diff) | |
noop
Diffstat (limited to 'Remote/Helper/Hooks.hs')
| -rw-r--r-- | Remote/Helper/Hooks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Helper/Hooks.hs b/Remote/Helper/Hooks.hs index 40484b2a7..d85959062 100644 --- a/Remote/Helper/Hooks.hs +++ b/Remote/Helper/Hooks.hs @@ -46,7 +46,7 @@ runHooks r starthook stophook a = do a where remoteid = show (uuid r) - run Nothing = return () + run Nothing = noop run (Just command) = void $ liftIO $ boolSystem "sh" [Param "-c", Param command] firstrun lck = do @@ -81,7 +81,7 @@ runHooks r starthook stophook a = do v <- liftIO $ tryIO $ setLock fd (WriteLock, AbsoluteSeek, 0, 0) case v of - Left _ -> return () + Left _ -> noop Right _ -> run stophook liftIO $ closeFd fd |