@@ -55,14 +55,14 @@ _Default = iso f Just
55 f (Just x) = x
55 f (Just x) = x
56 f Nothing = mempty
56 f Nothing = mempty
58−data Time = Time Text
58+newtype Time = Time Text
59− deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, ToText, FromText)
59+ deriving (Eq, Ord, Show, Read, Generic, Newtype, Typeable, ToText, FromText)
61−data Date = Date Text
61+newtype Date = Date Text
62− deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, ToText, FromText)
62+ deriving (Eq, Ord, Show, Read, Generic, Newtype, Typeable, ToText, FromText)
64−data DateTime = DateTime Text
64+newtype DateTime = DateTime Text
65− deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, ToText, FromText)
65+ deriving (Eq, Ord, Show, Read, Generic, Newtype, Typeable, ToText, FromText)
67data AltJSON = AltJSON
67data AltJSON = AltJSON
68 deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)
68 deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)