Removed inadequated Read deriving

src/Data/SMTP/Types/Address.hs

@@ -10,7 +10,7 @@ import Text.StringConvert
 
 data Address = AccountAdd Ac.Account (Maybe Seal.Seal)
              | URIAdd URI.URI (Maybe Seal.Seal)
-             deriving (Read, Show, Eq, Ord)
+             deriving (Show, Eq, Ord)
 
 asToURI :: Address -> String
 asToURI (AccountAdd a _) = concat ["<", s . Ac.normalize $ a, ">"]

src/Data/SMTP/Types/URI.hs

@@ -14,7 +14,7 @@ newtype Revision = Revision String deriving (Eq, Ord, Read, Show)
 data Parameter = Parameter String String deriving (Eq, Ord, Read, Show)
 
 data URI = URI {account :: Account, path :: Path, revision :: Maybe Revision, parameters :: [Parameter]} 
-         deriving (Eq, Ord, Read)
+         deriving (Eq, Ord)
 
 fullPath :: URI -> String
 fullPath URI{path=Path p} = intercalate "/" $ map uriEncode p