@@ -1,3 +1,5 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
2+
13module Data.Aeson.Types
24 (
35 Array
@@ -15,6 +17,7 @@ import Data.Map (Map)
1517import Data.Text (Text, pack, unpack)
1618import Data.Time.Clock (UTCTime)
1719import Data.Time.Format (formatTime, parseTime)
20+import Data.Typeable (Typeable)
1821import Data.Vector (Vector)
1922import System.Locale (defaultTimeLocale)
2023import qualified Data.Map as M
@@ -29,7 +32,7 @@ data Value = Object Object
2932 | Number Double
3033 | Bool !Bool
3134 | Null
32− deriving (Eq, Show)
35+ deriving (Eq, Show, Typeable)
3336
3437(.=) :: ToJSON a => Text -> a -> Object
3538name .= value = M.singleton name (toJSON value)