mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-03-19 13:02:13 +01:00
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)
|