diff options
| author | Hideyuki Tanaka <tanaka.hideyuki@gmail.com> | 2010-05-04 16:24:45 +0900 |
|---|---|---|
| committer | Hideyuki Tanaka <tanaka.hideyuki@gmail.com> | 2010-05-04 16:24:45 +0900 |
| commit | dbe760d6e2b0a9d800efa742e4fe264e898e8f3b (patch) | |
| tree | 8f36559d069e8907fe686a2d50d0ced10824c645 | |
| parent | 674c26d9c7213744193d8dd9b5269be66a80c4d5 (diff) | |
| download | msgpack-python-dbe760d6e2b0a9d800efa742e4fe264e898e8f3b.tar.gz | |
make () to OBJECT instance (Nil)
| -rw-r--r-- | haskell/src/Data/MessagePack/Class.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/haskell/src/Data/MessagePack/Class.hs b/haskell/src/Data/MessagePack/Class.hs index f50a4d8..34a7772 100644 --- a/haskell/src/Data/MessagePack/Class.hs +++ b/haskell/src/Data/MessagePack/Class.hs @@ -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 |