haskell: TH support and refactoring

This commit is contained in:
tanakh
2010-09-23 00:04:34 +09:00
parent a10eb2a0d7
commit 142493076a
8 changed files with 422 additions and 145 deletions

19
haskell/test/UserData.hs Normal file
View File

@@ -0,0 +1,19 @@
{-# 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)