haskell/test/Stream.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

import Control.Applicative
import qualified Data.ByteString as BS
import Data.MessagePack

main = do
  sb <- newSimpleBuffer
  pc <- newPacker sb
  pack pc [1,2,3::Int]
  pack pc True
  pack pc "hoge"
  bs <- simpleBufferData sb
  
  os <- unpackObjectsFromString bs
  mapM_ print os