diff options
Diffstat (limited to 'Assistant/Upgrade.hs')
| -rw-r--r-- | Assistant/Upgrade.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Upgrade.hs b/Assistant/Upgrade.hs index afbb61924..f91fde06c 100644 --- a/Assistant/Upgrade.hs +++ b/Assistant/Upgrade.hs @@ -115,7 +115,7 @@ distributionDownloadComplete d dest cleanup t | otherwise = cleanup where k = distributionKey d - fsckit f = case Backend.maybeLookupBackendName (Types.Key.keyBackendName k) of + fsckit f = case Backend.maybeLookupBackendVariety (Types.Key.keyVariety k) of Nothing -> return $ Just f Just b -> case Types.Backend.verifyKeyContent b of Nothing -> return $ Just f |