in which I discover void
void :: Functor f => f a -> f () -- ah, of course that's useful :)
This commit is contained in:
parent
be36aaca5b
commit
bee420bd2d
6 changed files with 16 additions and 29 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue