more verbosity

src/Argonix.hs

@@ -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]