blob: 2ec40938c6771087c2b311b2037282fa28c9e37c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# 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
|
