refactor some boilerplate

This commit is contained in:
Joey Hess 2011-05-15 02:02:46 -04:00
parent b400984ddf
commit 56bc3e95ca
31 changed files with 93 additions and 86 deletions

View file

@ -24,5 +24,5 @@ start :: CommandStartKey
start key = do
present <- inAnnex key
if present
then return Nothing
then stop
else liftIO $ exitFailure