X-Git-Url: http://git.hcoop.net/hcoop/zz_old/domtool2-proto.git/blobdiff_plain/f76b63da842320152dc0712fe3730873dd859285..32a3db08c803e34405ffaa3f3d10d82242dd789d:/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}) =