Commits

Bryan O'Sullivan committed 4fe1a3b

Add Typeable instance

Comments (0)

Files changed (1)

+{-# 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)