diff options
| author | Camil Staps | 2017-02-13 22:19:33 +0100 |
|---|---|---|
| committer | Camil Staps | 2017-02-13 22:19:33 +0100 |
| commit | fff22d1db5891e3e6ee772925b5b97c94d375b2b (patch) | |
| tree | 952763f0056781e3197ddf45cd653d30a1b15b4d | |
| parent | Use native tar (diff) | |
| -rw-r--r-- | CLPM/Util.icl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/CLPM/Util.icl b/CLPM/Util.icl index cea514c..ef8e247 100644 --- a/CLPM/Util.icl +++ b/CLPM/Util.icl @@ -81,9 +81,12 @@ where = receiveRest {resp & rsp_data=resp.rsp_data + toString (fromJust newresp)} chan w syscall :: !String !*World -> *(!Int, !*World) -syscall cmd w = code { - ccall system "s:I:A" -} +syscall cmd w = sys (cmd +++ "\0") w +where + sys :: !String !*World -> *(!Int, !*World) + sys _ _ = code { + ccall system "s:I:A" + } recursivelyRemove :: !FilePath !*World -> *(MaybeErrorString (), !*World) recursivelyRemove fp w |