Commit 406b8a77 authored by Valentin Reis's avatar Valentin Reis

move mkdir inside when

parent b413a638
Pipeline #5765 passed with stage
in 1 minute and 30 seconds
......@@ -288,8 +288,8 @@ 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
......
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