mirror of
https://github.com/msgpack/msgpack-python.git
synced 2026-02-07 02:09:59 +00:00
21 lines
422 B
Haskell
21 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
|