Commits

Bryan O'Sullivan committed a763424

Make UnicodeException an instance of Eq.

  • Participants
  • Parent commits ce1cf53

Comments (0)

Files changed (1)

File Data/Text/Encoding/Error.hs

   | EncodeError String (Maybe Char)
     -- ^ Tried to encode a character that could not be represented
     -- under the given encoding, or ran out of input in mid-encode.
-    deriving (Typeable)
+    deriving (Eq, Typeable)
 
 showUnicodeException :: UnicodeException -> String
 showUnicodeException (DecodeError desc (Just w))