wip

Author: eyeinsky

integration/test/Testlib/RunServices.hs

@@ -34,6 +34,7 @@ findProjectRoot path = do
 
 data Opts = Opts
   { withManualTestingOverrides :: Bool,
+    logLevels :: [(Service, String)],
     runSubprocess :: [String]
   }
   deriving (Show)
@@ -46,6 +47,11 @@ optsParser =
           <> short 'm'
           <> help "Run services with settings tuned for manual app usage (not recommended for running integration tests)"
       )
+    <*> undefined
+      -- ( long "with-manual-testing-overrides"
+      --     <> short 'm'
+      --     <> help "Run services with settings tuned for manual app usage (not recommended for running integration tests)"
+      -- )
     <*> many
       ( strArgument
           ( metavar "COMMAND_WITH_ARGS"