@@ -33,6 +33,7 @@ import Foreign.C
3333import Foreign.Ptr
3434import Foreign.ForeignPtr
3535import Foreign.Marshal.Alloc
36+import Data.Data
3637
3738#if MIN_VERSION_transformers(0,2,0)
3839import "transformers" Control.Monad.IO.Class
@@ -41,7 +42,6 @@ import "transformers" Control.Monad.Trans
4142#endif
4243
4344import Control.Exception (throwIO, Exception)
44−import Data.Typeable (Typeable)
4545import Data.Iteratee
4646import qualified Data.Iteratee.Base.StreamChunk as SC
4747import Control.Applicative
@@ -68,7 +68,7 @@ data Style = Any
6868 | DoubleQuoted
6969 | Literal
7070 | Folded
71− deriving (Show, Eq, Enum, Bounded, Ord)
71+ deriving (Show, Read, Eq, Enum, Bounded, Ord, Data, Typeable)
7272
7373data Tag = StrTag
7474 | FloatTag
@@ -80,7 +80,7 @@ data Tag = StrTag
8080 | MapTag
8181 | UriTag String
8282 | NoTag
83− deriving (Show, Eq)
83+ deriving (Show, Eq, Read, Data, Typeable)
8484
8585type AnchorName = String
8686type Anchor = Maybe AnchorName