From dde4f8bad104b44db97eab26d0be864d7cefe000 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 8 Feb 2017 17:17:59 +0100
Subject: Propagate clm return code

---
 clpm.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'clpm.icl')

diff --git a/clpm.icl b/clpm.icl
index a18c2cc..b434edd 100644
--- a/clpm.icl
+++ b/clpm.icl
@@ -114,7 +114,7 @@ cmd_make opts pkg io w
 	" " + fromJust pkg.main + " -o " + fromJust pkg.main
 #! io = io <<< cmd <<< "\r\n"
 #! (r,w) = syscall cmd w
-= (io,w)
+= (io,setReturnCode (if (r==0) 0 -1) w)
 
 parseArgs :: (Arguments [String] -> ([String], Arguments))
 parseArgs = pa []
-- 
cgit v1.2.3