mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-19 04:52:59 +01:00
22 lines
422 B
Haskell
22 lines
422 B
Haskell
{-# Language OverloadedStrings #-}
|
|
|
|
import Control.Monad.IO.Class
|
|
import qualified Data.ByteString as B
|
|
import Data.MessagePack
|
|
|
|
main = do
|
|
sb <- return $ packToString $ do
|
|
put [1,2,3::Int]
|
|
put (3.14 :: Double)
|
|
put ("Hoge" :: B.ByteString)
|
|
|
|
print sb
|
|
|
|
r <- unpackFromString sb $ do
|
|
arr <- get
|
|
dbl <- get
|
|
str <- get
|
|
return (arr :: [Int], dbl :: Double, str :: B.ByteString)
|
|
|
|
print r
|