make removeKey throw exceptions
This commit is contained in:
parent
b5ee97f32a
commit
4be94c67c7
28 changed files with 134 additions and 111 deletions
|
@ -163,7 +163,9 @@ retrieve h = fileRetriever $ \d k _p ->
|
|||
giveup "failed to retrieve content"
|
||||
|
||||
remove :: HookName -> Remover
|
||||
remove h k = runHook' h "remove" k Nothing $ return True
|
||||
remove h k =
|
||||
unlessM (runHook' h "remove" k Nothing $ return True) $
|
||||
giveup "failed to remove content"
|
||||
|
||||
checkKey :: Git.Repo -> HookName -> CheckPresent
|
||||
checkKey r h k = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue