Commit 66547e08 authored by Valentin Reis's avatar Valentin Reis

runProcessVerbose

parent 0fd1c21a
Pipeline #5873 passed with stage
in 19 seconds
......@@ -329,6 +329,9 @@ readProcessVerbose verbosity name arguments envVars = do
Just r -> return r
Nothing -> die "readProcess returned more than one line."
runProcessVerbose :: Verbosity -> Text -> [Text] -> [(Text, Text)] -> IO ()
runProcessVerbose a b c d = void $ readProcessVerbose a b c d
setupSystem :: Text -> ArgsCommon -> IO ([(Text, Text)],Text)
setupSystem target sa = do
......@@ -417,8 +420,8 @@ wrap nixCommand target sa@ArgsCommon {..} = do
(P.setEnv (fmap (\(x, y) -> (toS x, toS y)) envVars)
(P.proc (toS nixc) $ fmap toS arglist)
)
<> P.runProcess_ (P.proc "cp" ["-r", "/tmp/papa", "./result"])
<> P.runProcess_ (P.proc "cp" ["-r", toS tmpXDGHOME, "./nixtmpdir"])
<> runProcessVerbose verbosity "cp" ["-r", "/tmp/papa", "./result"] []
<> runProcessVerbose verbosity "cp" ["-r", toS tmpXDGHOME, "./nixtmpdir"] []
where
nixc = toCommand nixCommand
arglist =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment