replace stack trace with an explanation
This commit is contained in:
parent
b8cd5fde17
commit
7ee3b02d49
1 changed files with 1 additions and 1 deletions
|
@ -47,7 +47,7 @@ startSrcDest (src:dest:[])
|
||||||
where
|
where
|
||||||
go key = ifM (verifyKeyContent RetrievalAllKeysSecure DefaultVerify UnVerified key src)
|
go key = ifM (verifyKeyContent RetrievalAllKeysSecure DefaultVerify UnVerified key src)
|
||||||
( perform src key
|
( perform src key
|
||||||
, error "failed"
|
, giveup $ src ++ " does not have expected content of " ++ dest
|
||||||
)
|
)
|
||||||
startSrcDest _ = giveup "specify a src file and a dest file"
|
startSrcDest _ = giveup "specify a src file and a dest file"
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue