Commit bae08de9 authored by Valentin Reis's avatar Valentin Reis

more verbosity

parent 406b8a77
Pipeline #5767 passed with stage
in 21 seconds
......@@ -288,14 +288,17 @@ setupSystem sa = do
createAndSetTMPDIR name = do
{-localpath <- (</> fromText name) <$> pwd-}
let path = "/tmp" </> fromText name
testpath path >>=
flip when (rmtree path >> mkdir path)
testpath path >>= flip when (rmtree path >> mkdir path)
case toText path of
Right p -> sh $ do
inshell ("chmod 777 " <> p) empty
inshell ("ln -s " <> p <> name) empty
shell ("chmod 777 " <> p) empty >>= \case
ExitSuccess -> printf ("Successfully chmod" % s) p
ExitFailure _ -> die "failed at chmod"
shell ("ln -s " <> p <> name) empty >>= \case
ExitSuccess -> printf ("Successfully ln -s" % s) p
ExitFailure _ -> die "failed at ln -s"
export "TMPDIR" p
printInfo $ format ("TMPDIR exported to "%s) p
printInfo $ format ("TMPDIR exported to " % s) p
Left _ -> die "Path error when setting TMPDIR"
nixArguments :: String -> ArgsCommon -> [String]
......
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