From 47a2a9b621649a5ea7826e256deb37dccb4c7d7c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Sep 2019 16:42:49 -0400 Subject: [PATCH] fix build --- Upgrade.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Upgrade.hs b/Upgrade.hs index 981710de47..1cde059521 100644 --- a/Upgrade.hs +++ b/Upgrade.hs @@ -41,8 +41,8 @@ needsUpgrade v Just newv -> ifM (annexAutoUpgradeRepository <$> Annex.getGitConfig) ( tryNonAsync (upgrade True newv) >>= \case Right True -> ok - Right False -> "Automatic upgrade failed!" - Left err -> "Automatic upgrade exception! " ++ show err + Right False -> err "Automatic upgrade failed!" + Left ex -> err $ "Automatic upgrade exception! " ++ show ex , err "Automatic upgrade is disabled by annex.autoupgraderepository configuration. To upgrade this repository: git-annex upgrade" ) where