From 1f3f7daa9a9e4245a87aa9099135f0a11f956000 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jonatan=20P=C3=A5lsson?= <jonte@jonte-linux.(none)>
Date: Sun, 30 Jan 2011 18:48:02 +0100
Subject: [PATCH] Added some more parsing rules

---
 src/ggs_protocol.erl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/ggs_protocol.erl b/src/ggs_protocol.erl
index edce09c..a95b479 100644
--- a/src/ggs_protocol.erl
+++ b/src/ggs_protocol.erl
@@ -6,10 +6,17 @@
 
 parse(JSONData) ->
     {struct, Struct} = js_mochijson2:decode(JSONData),
-    RequestType = proplists:get_value(<<"request">>, Struct),
+    io:format("~p~n", [Struct]),
+    [{RequestType, Rest}] = Struct,%proplists:get_value(<<"request">>, Struct),
     case RequestType of
         <<"define">> ->
+            %Name = proplists:get_value(<<"name">>, Rest),
+            %{struct, Name} = proplists:get_value(<<"name">>, Rest),
+            {struct, Rest2} = Rest,
+            io:format("~p", [Rest2]),
             ok_you_said_define;
+        <<"call">> ->
+            ok_you_said_call;
         Other ->
             io:format("~p", [RequestType]),
             ok_i_dont_understand