Start ghc-debug socket in development (#1055)

Author: tchoutri

app/server/Main.hs

@@ -5,7 +5,6 @@
 module Main where
 
 import Control.Monad (forM_, unless)
-import Data.Function ((&))
 import Data.List qualified as List
 import Data.Set qualified as Set
 import Data.Text (Text)
@@ -22,39 +21,41 @@ import Effectful.Fail (runFailIO)
 import Effectful.FileSystem
 import Effectful.Log (Log, runLog)
 import Effectful.PostgreSQL.Transact.Effect (DB, dbtToEff, runDB)
+import GHC.Debug.Stub
 import Log qualified
 import System.Exit
-import System.IO
+import UnliftIO.IO
 
 import Flora.Environment (getFloraEnv)
-import Flora.Environment.Env (FloraEnv (..), MLTP (..))
+import Flora.Environment.Env
 import Flora.Logging qualified as Logging
 import Flora.Model.PackageIndex.Types
 import FloraJobs.Scheduler (checkIfIndexRefreshJobIsPlanned)
 import FloraWeb.Server
 
 main :: IO ()
-main = do
+main = runEff $ runFailIO $ runFileSystem $ do
+  env <- getFloraEnv
   hSetBuffering stdout LineBuffering
-  preFlightChecks
-  runFlora
+  preFlightChecks env
+  case env.environment of
+    Production -> liftIO runFlora
+    _ -> liftIO $ withGhcDebug runFlora
 
-preFlightChecks :: IO ()
-preFlightChecks = do
-  env <- getFloraEnv & runFileSystem & runFailIO & runEff
-  runEff $ do
-    let withLogger = Logging.makeLogger env.mltp.logger
-    withLogger $ \appLogger ->
-      runDB env.pool
-        . withUnliftStrategy (ConcUnlift Ephemeral Unlimited)
-        $ runLog
-          "flora-server"
-          appLogger
-          Log.LogTrace
-        $ do
-          checkExpectedTables
-          checkRepositoriesAreConfigured
-          checkIfIndexRefreshJobIsPlanned env.pool
+preFlightChecks :: IOE :> es => FloraEnv -> Eff es ()
+preFlightChecks env = do
+  let withLogger = Logging.makeLogger env.mltp.logger
+  withLogger $ \appLogger ->
+    runDB env.pool
+      . withUnliftStrategy (ConcUnlift Ephemeral Unlimited)
+      $ runLog
+        "flora-server"
+        appLogger
+        Log.LogTrace
+      $ do
+        checkExpectedTables
+        checkRepositoriesAreConfigured
+        checkIfIndexRefreshJobIsPlanned env.pool
 
 checkExpectedTables :: (DB :> es, IOE :> es, Log :> es) => Eff es ()
 checkExpectedTables = do

flora.cabal

@@ -545,12 +545,14 @@ executable flora-server
     flora,
     flora-jobs,
     flora-web,
+    ghc-debug-stub,
     log-base,
     log-effectful,
     pg-entity,
     pg-transact-effectful,
     postgresql-simple,
     text,
+    unliftio,
     vector,
 
 executable flora-cli