replace stack trace with an explanation

This commit is contained in:
Joey Hess 2018-08-20 21:26:07 -04:00
parent b8cd5fde17
commit 7ee3b02d49
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -47,7 +47,7 @@ startSrcDest (src:dest:[])
where
go key = ifM (verifyKeyContent RetrievalAllKeysSecure DefaultVerify UnVerified key src)
( perform src key
, error "failed"
, giveup $ src ++ " does not have expected content of " ++ dest
)
startSrcDest _ = giveup "specify a src file and a dest file"