X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/6c62564be57a4ff6bd63f12f6ec49ae7d9b53b7c..1638d5a206cd79e9619f0d3334fed29eaddc6b51:/src/msg.sml

diff --git a/src/msg.sml b/src/msg.sml
index 5940bbe..a8450dd 100644
--- a/src/msg.sml
+++ b/src/msg.sml
@@ -23,12 +23,14 @@ structure Msg :> MSG = struct
 open OpenSSL MsgTypes Slave
 
 val a2i = fn Add => 0
-	   | Delete => 1
+	   | Delete true => 1
 	   | Modify => 2
+	   | Delete false => 3
 
 val i2a = fn 0 => Add
-	   | 1 => Delete
+	   | 1 => Delete true
 	   | 2 => Modify
+	   | 3 => Delete false
 	   | _ => raise OpenSSL.OpenSSL "Bad action number to deserialize"
 
 fun sendAcl (bio, {user, class, value}) =