@@ -203,8 +203,8 @@ instance Show Decoding where
203203 showString "Some " . showsPrec (prec+1) t
204204 where prec = 10
205205
206−newtype CodePoint = CodePoint Word32 deriving (Num, Storable)
207−newtype DecoderState = DecoderState Word32 deriving (Eq, Num, Storable)
206+newtype CodePoint = CodePoint Word32 deriving (Eq, Show, Num, Storable)
207+newtype DecoderState = DecoderState Word32 deriving (Eq, Show, Num, Storable)
208208
209209-- | Decode, in a stream oriented way, a 'ByteString' containing UTF-8
210210-- encoded text that is known to be valid.