1. Bryan O'Sullivan
  2. text


Bryan O'Sullivan  committed a763424

Make UnicodeException an instance of Eq.

  • Participants
  • Parent commits ce1cf53
  • Branches default

Comments (0)

Files changed (1)

File Data/Text/Encoding/Error.hs

View file
   | 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))