refactor some boilerplate
This commit is contained in:
parent
b400984ddf
commit
56bc3e95ca
31 changed files with 93 additions and 86 deletions
|
@ -24,5 +24,5 @@ start :: CommandStartKey
|
|||
start key = do
|
||||
present <- inAnnex key
|
||||
if present
|
||||
then return Nothing
|
||||
then stop
|
||||
else liftIO $ exitFailure
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue