{-# LANGUAGE OverloadedStrings #-} module Lib where import Foreign.C.Types import GHC.Ptr (Ptr) import qualified Data.MessagePack as MP import Data.ByteString as B import qualified Data.ByteString.Lazy as BL import Foreign.Marshal.Array (newArray) import Foreign.Storable (Storable(..)) import Foreign.Marshal.Utils (new) import Data.Word data ByteArrayStruct = ByteArrayStruct {len :: CLong, ptr_msg
