From 286407252afdeeb6c6d0f054eb3f4a68faa098cf Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 14 Oct 2020 13:04:47 +0200 Subject: [PATCH] chore: use better exit code for "migration needed" --- src/Application.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Application.hs b/src/Application.hs index cd87498a4..9566dee7a 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -234,7 +234,7 @@ makeFoundation appSettings'@AppSettings{..} = do migrateAll `runSqlPool` sqlPool | otherwise -> whenM (requiresMigration `runSqlPool` sqlPool) $ do $logErrorS "setup" "Migration required" - liftIO . exitWith $ ExitFailure 2 + liftIO . exitWith $ ExitFailure 130 $logDebugS "setup" "Cluster-Config" appCryptoIDKey <- clusterSetting (Proxy :: Proxy 'ClusterCryptoIDKey) `runSqlPool` sqlPool