Printing mailbox locations for vmail list

[hcoop/domtool2.git] / src / msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index cc792ff..3d5997d 100644 (file)
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -67,7 +67,7 @@ datatype msg =
        (* Remove a vmail mapping *)
        | MsgListMailboxes of string
        (* List all mailboxes for a domain *)
-       | MsgMailboxes of string list
+       | MsgMailboxes of {user : string, mailbox : string} list
        (* Reply to MsgListMailboxes *)
 
 end