From dbe760d6e2b0a9d800efa742e4fe264e898e8f3b Mon Sep 17 00:00:00 2001 From: Hideyuki Tanaka Date: Tue, 4 May 2010 16:24:45 +0900 Subject: [PATCH] make () to OBJECT instance (Nil) --- haskell/src/Data/MessagePack/Class.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/haskell/src/Data/MessagePack/Class.hs b/haskell/src/Data/MessagePack/Class.hs index f50a4d82..34a7772f 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