Skip to content

Commit

Permalink
Reformat
Browse files Browse the repository at this point in the history
  • Loading branch information
maralorn committed Nov 25, 2024
1 parent e019bd3 commit bed055c
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions exe/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -147,11 +147,10 @@ runMonitoredCommand :: Config -> Process.ProcessConfig () () () -> IO Process.Ex
runMonitoredCommand config process_config = do
let process_config_with_handles =
Process.setStdout Process.createPipe
$ Process.setStderr
Process.createPipe
process_config
Exception.handle ((ExitFailure 1 <$) . printIOException)
$ Process.withProcessWait process_config_with_handles \process -> do
. Process.setStderr Process.createPipe
$ process_config
Exception.handle ((ExitFailure 1 <$) . printIOException) $
Process.withProcessWait process_config_with_handles \process -> do
void $ monitorHandle @NixJSONMessage config (Process.getStderr process)
exitCode <- Process.waitExitCode process
output <- ByteString.hGetContents (Process.getStdout process)
Expand Down

0 comments on commit bed055c

Please sign in to comment.