diff --git a/Data/MessagePack/Pack.hs b/Data/MessagePack/Pack.hs
--- a/Data/MessagePack/Pack.hs
+++ b/Data/MessagePack/Pack.hs
@@ -28,7 +28,7 @@
 import qualified Data.HashMap.Strict as HM
 import qualified Data.Map as M
 import qualified Data.IntMap as IM
-import Data.Monoid
+import qualified Data.Monoid as Monoid
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 import qualified Data.Text.Lazy as TL
@@ -40,6 +40,9 @@
 import Data.MessagePack.Assoc
 import Data.MessagePack.Internal.Utf8
 
+(<>) :: Monoid.Monoid m => m -> m -> m
+(<>) = Monoid.mappend
+
 -- | Serializable class
 class Packable a where
   -- | Serialize a value
@@ -132,10 +135,10 @@
   <> pf bs
 
 instance Packable a => Packable [a] where
-  from = fromArray length (mconcat . map from)
+  from = fromArray length (Monoid.mconcat . map from)
 
 instance Packable a => Packable (V.Vector a) where
-  from = fromArray V.length (V.foldl (\a b -> a <> from b) mempty)
+  from = fromArray V.length (V.foldl (\a b -> a <> from b) Monoid.mempty)
 
 instance (Packable a1, Packable a2) => Packable (a1, a2) where
   from = fromArray (const 2) f where
@@ -183,19 +186,19 @@
   <> pf arr
 
 instance (Packable k, Packable v) => Packable (Assoc [(k,v)]) where
-  from = fromMap length (mconcat . map fromPair) . unAssoc
+  from = fromMap length (Monoid.mconcat . map fromPair) . unAssoc
 
 instance (Packable k, Packable v) => Packable (Assoc (V.Vector (k,v))) where
-  from = fromMap V.length (V.foldl (\a b -> a <> fromPair b) mempty) . unAssoc
+  from = fromMap V.length (V.foldl (\a b -> a <> fromPair b) Monoid.mempty) . unAssoc
 
 instance (Packable k, Packable v) => Packable (M.Map k v) where
-  from = fromMap M.size (mconcat . map fromPair . M.toList)
+  from = fromMap M.size (Monoid.mconcat . map fromPair . M.toList)
 
 instance Packable v => Packable (IM.IntMap v) where
-  from = fromMap IM.size (mconcat . map fromPair . IM.toList)
+  from = fromMap IM.size (Monoid.mconcat . map fromPair . IM.toList)
 
 instance (Packable k, Packable v) => Packable (HM.HashMap k v) where
-  from = fromMap HM.size (mconcat . map fromPair . HM.toList)
+  from = fromMap HM.size (Monoid.mconcat . map fromPair . HM.toList)
 
 fromPair :: (Packable a, Packable b) => (a, b) -> Builder
 fromPair (a, b) = from a <> from b
diff --git a/msgpack.cabal b/msgpack.cabal
--- a/msgpack.cabal
+++ b/msgpack.cabal
@@ -1,5 +1,5 @@
 Name:               msgpack
-Version:            0.7.1.1
+Version:            0.7.1.2
 Synopsis:           A Haskell implementation of MessagePack
 Description:        A Haskell implementation of MessagePack <http://msgpack.org/>
 Homepage:           http://msgpack.org/