move mkdir inside when

406b8a77 · Valentin Reis · b413a638 · 406b8a77
Commit 406b8a77 authored Mar 01, 2019 by Valentin Reis
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/Argonix.hs src/Argonix.hs +2 -2

No files found.
--- a/src/Argonix.hs
+++ b/src/Argonix.hs
@@ -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