haskell binding

haskell/test/Stream.hs

@@ -0,0 +1,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