Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-06 17:59:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

make () to OBJECT instance (Nil)

Browse source
This commit is contained in:
Hideyuki Tanaka 2010-05-04 16:24:45 +09:00
parent 674c26d9c7
commit dbe760d6e2
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
haskell/src/Data/MessagePack/Class.hs
View file

@ -46,6 +46,11 @@ instance OBJECT Object where
fromObjectError :: String
fromObjectError = "fromObject: cannot cast"
instance OBJECT () where
toObject = const ObjectNil
fromObject ObjectNil = Right ()
fromObject _ = Left fromObjectError
instance OBJECT Int where
toObject = ObjectInteger
fromObject (ObjectInteger n) = Right n