move mkdir inside when

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