Make UnicodeException an instance of Eq.
commit6cff0e00ba156e7665b1725412bddfb3a4218cce
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 15 Mar 2011, 20:41 (16 years ago)
parentf8d5f17
Data/Text/Encoding/Error.hs+1−1
@@ -77,7 +77,7 @@ data UnicodeException =
7777 | EncodeError String (Maybe Char)
7878 -- ^ Tried to encode a character that could not be represented
7979 -- under the given encoding, or ran out of input in mid-encode.
80− deriving (Typeable)
80+ deriving (Eq, Typeable)
8181
8282showUnicodeException :: UnicodeException -> String
8383showUnicodeException (DecodeError desc (Just w))