improve error message
This commit is contained in:
parent
b2bafdb2fc
commit
bdf6783b92
2 changed files with 2 additions and 2 deletions
|
@ -80,7 +80,7 @@ perform file oldkey oldbackend newbackend = go =<< genkey (fastMigrate oldbacken
|
|||
forM_ urls $ \url ->
|
||||
setUrlPresent newkey url
|
||||
next $ Command.ReKey.cleanup file oldkey newkey
|
||||
, error "failed"
|
||||
, giveup "failed creating link from old to new key"
|
||||
)
|
||||
genkey Nothing = return Nothing
|
||||
genkey (Just fm) = fm oldkey newbackend afile >>= \case
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue