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

runProcessVerbose

parent 0fd1c21a
Pipeline #5873 passed with stage
in 19 seconds
...@@ -329,6 +329,9 @@ readProcessVerbose verbosity name arguments envVars = do ...@@ -329,6 +329,9 @@ readProcessVerbose verbosity name arguments envVars = do
Just r -> return r Just r -> return r
Nothing -> die "readProcess returned more than one line." 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 :: Text -> ArgsCommon -> IO ([(Text, Text)],Text)
setupSystem target sa = do setupSystem target sa = do
...@@ -417,8 +420,8 @@ wrap nixCommand target sa@ArgsCommon {..} = do ...@@ -417,8 +420,8 @@ wrap nixCommand target sa@ArgsCommon {..} = do
(P.setEnv (fmap (\(x, y) -> (toS x, toS y)) envVars) (P.setEnv (fmap (\(x, y) -> (toS x, toS y)) envVars)
(P.proc (toS nixc) $ fmap toS arglist) (P.proc (toS nixc) $ fmap toS arglist)
) )
<> P.runProcess_ (P.proc "cp" ["-r", "/tmp/papa", "./result"]) <> runProcessVerbose verbosity "cp" ["-r", "/tmp/papa", "./result"] []
<> P.runProcess_ (P.proc "cp" ["-r", toS tmpXDGHOME, "./nixtmpdir"]) <> runProcessVerbose verbosity "cp" ["-r", toS tmpXDGHOME, "./nixtmpdir"] []
where where
nixc = toCommand nixCommand nixc = toCommand nixCommand
arglist = 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