Commits

Bryan O'Sullivan  committed 4fe1a3b

Add Typeable instance

  • Participants
  • Parent commits f18724f

Comments (0)

Files changed (1)

File Data/Aeson/Types.hs

+{-# LANGUAGE DeriveDataTypeable #-}
+
 module Data.Aeson.Types
     (
       Array
 import Data.Text (Text, pack, unpack)
 import Data.Time.Clock (UTCTime)
 import Data.Time.Format (formatTime, parseTime)
+import Data.Typeable (Typeable)
 import Data.Vector (Vector)
 import System.Locale (defaultTimeLocale)
 import qualified Data.Map as M
            | Number Double
            | Bool !Bool
            | Null
-             deriving (Eq, Show)
+             deriving (Eq, Show, Typeable)
 
 (.=) :: ToJSON a => Text -> a -> Object
 name .= value = M.singleton name (toJSON value)