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

nukes another 15 lines thanks to ifM

Browse source
This commit is contained in:
Joey Hess 2012-03-15 20:39:25 -04:00
parent ff8b6c1bab
commit c0c9991c9f
6 changed files with 57 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Remote/Helper/Hooks.hs
View file

@ -84,10 +84,8 @@ runHooks r starthook stophook a = do
liftIO $ closeFd fd
lookupHook :: Remote -> String -> Annex (Maybe String)
lookupHook r n = do
command <- getConfig (repo r) hookname ""
if null command
then return Nothing
else return $ Just command
lookupHook r n = go =<< getConfig (repo r) hookname ""
where
go "" = return Nothing
go command = return $ Just command
hookname = n ++ "-command"