fix(sut): Add missing port to places

src/sut/dumblog/app/metrics/Main.hs

@@ -1,8 +1,9 @@
 module Main where
 
+import Dumblog.Common.Constants
 import Dumblog.Metrics.Main
 
 ------------------------------------------------------------------------
 
 main :: IO ()
-main = metricsMain
+main = metricsMain dUMBLOG_PORT

src/sut/dumblog/bench/Common.hs

@@ -24,9 +24,9 @@ import System.Random (StdGen, mkStdGen, randomR)
 import Text.Printf (printf)
 import Text.Read (readMaybe)
 
+import Dumblog.Common.Constants (dUMBLOG_PORT)
 import Dumblog.Common.HttpClient
 import Dumblog.Common.Utils (showBytes)
-import Dumblog.Journal.Main (dUMBLOG_PORT)
 
 ------------------------------------------------------------------------
 

src/sut/dumblog/bench/journal/Main.hs

@@ -2,6 +2,7 @@ module Main where
 
 import System.Directory (removePathForcibly)
 
+import Dumblog.Common.Constants
 import Dumblog.Journal.Main
 
 import Common

src/sut/dumblog/bench/sqlite/Main.hs

@@ -2,6 +2,7 @@ module Main where
 
 import System.Directory (removePathForcibly)
 
+import Dumblog.Common.Constants (dUMBLOG_PORT)
 import Dumblog.SQLite.Main (sqliteDumblog)
 import Dumblog.SQLite.DB (sqlitePath)
 
@@ -14,4 +15,4 @@ main = do
   removePathForcibly sqlitePath
   removePathForcibly (sqlitePath ++ "-shm")
   removePathForcibly (sqlitePath ++ "-wal")
-  commonMain "SQLite" (sqliteDumblog bUFFER_CAPACITY pORT . Just)
+  commonMain "SQLite" (sqliteDumblog bUFFER_CAPACITY dUMBLOG_PORT . Just)

src/sut/dumblog/dumblog.cabal

@@ -67,6 +67,7 @@ library
       , persistent-sqlite
 
   exposed-modules:
+    Dumblog.Common.Constants
     Dumblog.Common.HttpClient
     Dumblog.Common.Metrics
     Dumblog.Common.Utils

src/sut/dumblog/src/Dumblog/Common/Constants.hs

@@ -0,0 +1,4 @@
+module Dumblog.Common.Constants where
+
+dUMBLOG_PORT :: Int
+dUMBLOG_PORT = 8054

src/sut/dumblog/src/Dumblog/Journal/Main.hs

@@ -45,6 +45,7 @@ import Options.Generic
 import System.Directory (copyFile, getTemporaryDirectory, removeFile)
 import System.FilePath ((<.>), (</>))
 
+import Dumblog.Common.Constants (dUMBLOG_PORT)
 import Dumblog.Common.Metrics (dumblogSchema, dumblogMetricsPath)
 import Dumblog.Journal.Blocker (emptyBlocker)
 import Dumblog.Journal.Codec (Envelope(..))
@@ -179,9 +180,6 @@ dumblogOptions = defaultOptions
   , oTermBufferLength = 512 * 1024 * 1024
   }
 
-dUMBLOG_PORT :: Int
-dUMBLOG_PORT = 8054
-
 dumblogJournalPath :: Int -> FilePath
 dumblogJournalPath portUsed = "/tmp/dumblog-" ++ show portUsed ++ ".journal"
 

src/sut/dumblog/src/Dumblog/Metrics/Main.hs

@@ -13,7 +13,7 @@ import Text.Printf (printf)
 
 import Dumblog.Common.Metrics
 import Dumblog.Common.Utils (showBytes)
-import Dumblog.Journal.Main
+import Dumblog.Journal.Main hiding (port)
 import Journal (journalMetadata)
 import Journal.Internal.Metrics hiding (Latency)
 import Journal.Types