diff --git a/lib/GHCup.hs b/lib/GHCup.hs index 530e53a6b45f5b84b040cdd68a8cdda833fa9162..4ab43a6ecffecd68abbc4c57d3b3dc2761ad242a 100644 --- a/lib/GHCup.hs +++ b/lib/GHCup.hs @@ -2500,6 +2500,7 @@ compileGHC targetGhc ov bstrap jobs mbuildConfig patchdir aargs buildFlavour had execWithGhcEnv :: ( MonadReader env m , HasSettings env , HasDirs env + , HasLog env , MonadIO m , MonadThrow m) => FilePath -- ^ thing to execute diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs index dab1789ae5949506f555b78fe966c9351b918f04..489e856d0205aaf07e16a94953088f4584200ea5 100644 --- a/lib/GHCup/Utils.hs +++ b/lib/GHCup/Utils.hs @@ -856,6 +856,7 @@ make :: ( MonadThrow m , MonadIO m , MonadReader env m , HasDirs env + , HasLog env , HasSettings env ) => [String] diff --git a/lib/GHCup/Utils/File/Posix.hs b/lib/GHCup/Utils/File/Posix.hs index fdd788bbd7fbda4d815cdb1627de40d41d650ff8..b13aec958366d8665336f30c8992078c04f4f35b 100644 --- a/lib/GHCup/Utils/File/Posix.hs +++ b/lib/GHCup/Utils/File/Posix.hs @@ -73,6 +73,7 @@ executeOut path args chdir = liftIO $ captureOutStreams $ do execLogged :: ( MonadReader env m , HasSettings env + , HasLog env , HasDirs env , MonadIO m , MonadThrow m) @@ -85,6 +86,7 @@ execLogged :: ( MonadReader env m execLogged exe args chdir lfile env = do Settings {..} <- getSettings Dirs {..} <- getDirs + logDebug $ T.pack $ "Running " <> exe <> " with arguments " <> show args let logfile = logsDir </> lfile <> ".log" liftIO $ bracket (openFd logfile WriteOnly (Just newFilePerms) defaultFileFlags{ append = True }) closeFd diff --git a/lib/GHCup/Utils/File/Windows.hs b/lib/GHCup/Utils/File/Windows.hs index b7b6e176a7b277840efb3d0d13d2da4753bafbe9..91ec2d7f78ec62cc81f44c07fd0611798addf0d1 100644 --- a/lib/GHCup/Utils/File/Windows.hs +++ b/lib/GHCup/Utils/File/Windows.hs @@ -149,6 +149,7 @@ executeOut path args chdir = do execLogged :: ( MonadReader env m , HasDirs env + , HasLog env , HasSettings env , MonadIO m , MonadThrow m) @@ -160,6 +161,7 @@ execLogged :: ( MonadReader env m -> m (Either ProcessError ()) execLogged exe args chdir lfile env = do Dirs {..} <- getDirs + logDebug $ T.pack $ "Running " <> exe <> " with arguments " <> show args let stdoutLogfile = logsDir </> lfile <> ".stdout.log" stderrLogfile = logsDir </> lfile <> ".stderr.log" cp <- createProcessWithMingwPath ((proc exe args)