mirror of
https://github.com/msgpack/msgpack-c
synced 2026-06-08 16:11:40 +00:00
tanakh
20 lines
305 B
Haskell
20 lines
305 B
Haskell
{-# Language TemplateHaskell #-}
|
|
|
|
import Data.MessagePack
|
|
import Data.MessagePack.Derive
|
|
|
|
data T
|
|
= A Int String
|
|
| B Double
|
|
deriving (Show)
|
|
|
|
$(deriveObject ''T)
|
|
|
|
main = do
|
|
let bs = pack $ A 123 "hoge"
|
|
print bs
|
|
print (unpack bs :: T)
|
|
let cs = pack $ B 3.14
|
|
print cs
|
|
print (unpack cs :: T)
|