rename reply :: CallbackM [Text] to "msg", and add a lazy bytestring version of it

Author: banacorn

README.md

@@ -20,8 +20,8 @@ main = server 4000 $ do
 
     on "ping" $ emit "pong" []
 
-    -- reply :: CallbackM [Text]
-    on "echo" $ reply >>= emit "pong"
+    -- msg :: CallbackM [Text]
+    on "echo" $ msg >>= emit "pong"
 
     -- do some IO
     on "Kim Jong-Un" $ liftIO launchMissile

SocketIO.cabal

@@ -22,8 +22,8 @@ description:
             \-\- ping pong
             on "ping" $ emit "pong" []
         .
-            \-\- reply :: CallbackM [Text]
-            on "echo" $ reply >>= emit "pong"
+            \-\- msg :: CallbackM [Text]
+            on "echo" $ msg >>= emit "pong"
         .
             \-\- do some IO
             on "Kim Jong-Un" $ liftIO launchMissile

Web/SocketIO.hs

@@ -39,7 +39,8 @@ module Web.SocketIO
         -- * Sending and receiving events
     ,   Subscriber(..)
     ,   Publisher(..)
-    ,   reply
+    ,   msg
+    ,   msg'
     ,   getEventName
     ,   HasSessionID(..)
     ,   EventName

Web/SocketIO/Event.hs

@@ -8,23 +8,31 @@ module Web.SocketIO.Event where
 import Web.SocketIO.Types
 
 --------------------------------------------------------------------------------
-import Control.Applicative ((<$>))
-import Control.Monad.Reader
+import              Control.Applicative ((<$>))
+import              Control.Monad.Reader
+import qualified    Data.ByteString.Lazy                as BL
 
 --------------------------------------------------------------------------------
 -- | Extracts payload carried by the event
 --
 -- @
 -- `on` \"echo\" $ do
---     payload <- reply
+--     payload <- msg
 --     liftIO $ print payload
 --     emit "echo" payload 
 -- @
-reply :: CallbackM [Text]
-reply = do
+msg :: CallbackM [Text]
+msg = do
     Payload p <- callbackEnvPayload <$> ask
     return p
 
+--------------------------------------------------------------------------------
+-- | Lazy ByteString version of `msg`, convenient for Aeson decoding.
+msg' :: CallbackM [BL.ByteString]
+msg' = do
+    Payload p <- callbackEnvPayload <$> ask
+    return (map serialize p)
+
 --------------------------------------------------------------------------------
 -- | Name of the event
 getEventName :: CallbackM EventName