generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-19 04:52:59 +01:00
Code Issues Projects Releases Wiki Activity

haskell: Object is Eq, Ord, Typeable.

Browse Source
This commit is contained in:
tanakh 2010-09-07 17:35:24 +09:00
parent 169f287970
commit 5e19bc6f84
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
haskell/src/Data/MessagePack/Object.hs
View File

@ -1,6 +1,7 @@
{-# Language TypeSynonymInstances #-} {-# Language TypeSynonymInstances #-}
{-# Language FlexibleInstances #-} {-# Language FlexibleInstances #-}
{-# Language OverlappingInstances #-} {-# Language OverlappingInstances #-}
{-# Language DeriveDataTypeable #-}
-------------------------------------------------------------------- --------------------------------------------------------------------
-- | -- |
@ -30,6 +31,7 @@ import Control.Monad
import Control.Monad.Trans.Error () import Control.Monad.Trans.Error ()
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as C8 import qualified Data.ByteString.Char8 as C8
import Data.Typeable
-- | Object Representation of MessagePack data. -- | Object Representation of MessagePack data.
data Object = data Object =
@ -40,7 +42,7 @@ data Object =
| ObjectRAW B.ByteString | ObjectRAW B.ByteString
| ObjectArray [Object] | ObjectArray [Object]
| ObjectMap [(Object, Object)] | ObjectMap [(Object, Object)]
deriving (Show) deriving (Show, Eq, Ord, Typeable)
instance NFData Object where instance NFData Object where
rnf obj = rnf obj =