From f50855d5c0744fb1e571b12fe3ee3c2accb9b034 Mon Sep 17 00:00:00 2001
From: Hideyuki Tanaka <tanaka.hideyuki@gmail.com>
Date: Fri, 18 Mar 2011 00:44:15 +0900
Subject: [PATCH] fix for packing and unpacking Object

---
 haskell/src/Data/MessagePack/Object.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haskell/src/Data/MessagePack/Object.hs b/haskell/src/Data/MessagePack/Object.hs
index 421b05e2..3eb36587 100644
--- a/haskell/src/Data/MessagePack/Object.hs
+++ b/haskell/src/Data/MessagePack/Object.hs
@@ -75,7 +75,7 @@ instance Unpackable Object where
     , liftM ObjectDouble get
     , liftM ObjectRAW get
     , liftM ObjectArray get
-    , liftM ObjectMap get
+    , liftM (ObjectMap . unAssoc) get
     ]
 
 instance Packable Object where
@@ -96,7 +96,7 @@ instance Packable Object where
       ObjectArray arr ->
         put arr
       ObjectMap m ->
-        put m
+        put $ Assoc m
 
 -- | The class of types serializable to and from MessagePack object
 class (Unpackable a, Packable a) => OBJECT a where