From 17998a5e8d386b58d30d138ea8dbc565955cccc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 11 Jan 2025 19:33:54 +0100
Subject: Concurrently run jobs for multiple commits

Changelog: Concurrently run jobs for multiple commits
---
 src/Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index c693281..d24642d 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -17,6 +17,7 @@ import System.IO
 import Command
 import Command.Run
 import Config
+import Terminal
 import Version
 
 data CmdlineOptions = CmdlineOptions
@@ -120,7 +121,7 @@ fullCommandOptions proxy =
     ]
 
 runSomeCommand :: CommonOptions -> SomeCommandType -> [ String ] -> IO ()
-runSomeCommand copts (SC tproxy) args = do
+runSomeCommand ciOptions (SC tproxy) args = do
     let exitWithErrors errs = do
             hPutStrLn stderr $ concat errs <> "Try `minici " <> commandName tproxy <> " --help' for more information."
             exitFailure
@@ -142,7 +143,8 @@ runSomeCommand copts (SC tproxy) args = do
         Left err -> do
             putStr err
             exitFailure
-        Right config -> do
+        Right ciConfig -> do
             let cmd = commandInit tproxy (fcoSpecific opts) cmdargs
             let CommandExec exec = commandExec cmd
-            flip runReaderT ( copts, config ) exec
+            ciTerminalOutput <- initTerminalOutput
+            flip runReaderT CommandInput {..} exec
-- 
cgit v1.2.3