in which I discover void

void :: Functor f => f a -> f () -- ah, of course that's useful :)
This commit is contained in:
Joey Hess 2012-04-21 23:04:59 -04:00
parent be36aaca5b
commit bee420bd2d
6 changed files with 16 additions and 29 deletions

View file

@ -47,9 +47,8 @@ runHooks r starthook stophook a = do
where
remoteid = show (uuid r)
run Nothing = return ()
run (Just command) = liftIO $ do
_ <- boolSystem "sh" [Param "-c", Param command]
return ()
run (Just command) = void $ liftIO $
boolSystem "sh" [Param "-c", Param command]
firstrun lck = do
-- Take a shared lock; This indicates that git-annex
-- is using the remote, and prevents other instances