chore: use better exit code for "migration needed"

2020-10-14 13:04:47 +02:00 · 2020-10-14 13:04:47 +02:00 · 286407252a
commit 286407252a
parent 7529933ebe
1 changed files with 1 additions and 1 deletions
--- 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