build failure proper report.

ae2618f1 · Valentin Reis · c0d05db8 · ae2618f1
Commit ae2618f1 authored Mar 06, 2019 by Valentin Reis
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

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

No files found.
--- a/src/Argonix.hs
+++ b/src/Argonix.hs
@@ -419,8 +419,9 @@ wrap nixCommand target sa@ArgsCommon {..} = do
                    (P.proc (toS nixc) $ fmap toS arglist)
          )
        >>= \case
-              ExitSuccess   -> copySuccess "/tmp/papa"
-              ExitFailure _ -> copyFailure $ toS tmpXDGHOME
+              ExitSuccess -> copySuccess "/tmp/papa"
+              ExitFailure _ ->
+                copyFailure (toS tmpXDGHOME) >> die "build failed."
 where
  copySuccess source =
    runProcessVerbose verbosity "cp" ["-r", source, "./result"] []