From 17af172e3d072b71282d8a4340611e3776d0ac46 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 6 Mar 2012 16:37:36 -0500
Subject: [PATCH] Catch up with ocamlmsg definitions

---
 server/main.c        | 2 +-
 server/messages.json | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/server/main.c b/server/main.c
index 4a1cc59..9a36f79 100644
--- a/server/main.c
+++ b/server/main.c
@@ -45,7 +45,7 @@ static void factory_handle_message(node_t *n, sexp_t *m) {
 	sexp_t *error = NULL;
 	sexp_t *reply;
 	if (new_node(nc, p.create.arg, &error) != NULL) {
-	  reply = message_create_ok();
+	  reply = message_create_ok(NULL);
 	} else {
 	  reply = message_create_failed(error);
 	}
diff --git a/server/messages.json b/server/messages.json
index 163aab7..0397e1d 100644
--- a/server/messages.json
+++ b/server/messages.json
@@ -5,7 +5,7 @@
     },
     {
 	"selector": "create-ok",
-	"args": []
+	"args": ["info"]
     },
     {
 	"selector": "create-failed",