mirror of
https://github.com/msgpack/msgpack-python.git
synced 2026-02-07 10:19:51 +00:00
19 lines
305 B
Haskell
19 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)
|