Make http logging optional

README.md

@@ -79,6 +79,7 @@ services:
       HAKA_SESSION_EXPIRY: "24"
       HAKA_LOG_LEVEL: "info" # Control the verbosity of the logger.
       HAKA_ENV: "prod" # Use a json logger for production, otherwise key=value pairs.
+      HAKA_HTTP_LOG: "true" # If you want to log http requests.
     ports:
       - "127.0.0.1:8080:8080"
   haka_db:

app/Main.hs

@@ -87,9 +87,13 @@ initApp settings unApp = do
                        threadDelay 1000000
                    )
 
-  withStdoutLogger $ \logger -> do
-    let conf = setPort (hakaPort settings) $ setLogger logger defaultSettings
-    runSettings conf (unApp appCtx)
+  if hakaHasHttpLogger settings
+    then do
+      withStdoutLogger $ \logger -> do
+        let conf = setPort (hakaPort settings) $ setLogger logger defaultSettings
+        runSettings conf (unApp appCtx)
+    else do
+      run (hakaPort settings) (unApp appCtx)
 
 getServerSettings :: IO ServerSettings
 getServerSettings = do
@@ -102,6 +106,7 @@ getServerSettings = do
   sessionExpiry <- envAsInt "HAKA_SESSION_EXPIRY" 24
   logLevel <- envAsString "HAKA_LOG_LEVEL" "info"
   rEnv <- envAsString "HAKA_ENV" "prod"
+  enableHttpLog <- envAsBool "HAKA_HTTP_LOG" True
   when (sessionExpiry <= 0) (error "Session expiry should be a positive integer")
   return $
     ServerSettings
@@ -111,6 +116,7 @@ getServerSettings = do
         hakaDashboardPath = dashboardPath,
         hakaShieldsIOUrl = shieldsIOUrl,
         hakaLogLevel = logLevel,
+        hakaHasHttpLogger = enableHttpLog,
         hakaRunEnv = case rEnv of
           "prod" -> Log.Prod
           "production" -> Log.Prod

docker-compose-deploy.yml

@@ -19,6 +19,7 @@ services:
       HAKA_SESSION_EXPIRY: "24"
       HAKA_LOG_LEVEL: "info" # Control the verbosity of the logger.
       HAKA_ENV: "prod" # Use a json logger for production.
+      HAKA_HTTP_LOG: "true" # If you want to log http requests.
     ports:
       - "127.0.0.1:8080:8080"
   haka_db:

src/Haka/App.hs

@@ -148,5 +148,7 @@ data ServerSettings = ServerSettings
     -- | Control the logger output format. json for prod, key-value pair for dev.
     hakaRunEnv :: Log.EnvType,
     -- | Verbosity level.
-    hakaLogLevel :: String
+    hakaLogLevel :: String,
+    -- | Whether to log the HTTP requests.
+    hakaHasHttpLogger :: Bool
   }