-utf32be_DF :: IO TextDecoder
-utf32be_DF = return (BufferCodec utf32be_decode (return ()))
-
-utf32be_EF :: IO TextEncoder
-utf32be_EF = return (BufferCodec utf32be_encode (return ()))
+utf32be_DF :: IO (TextDecoder ())
+utf32be_DF =
+ return (BufferCodec {
+ encode = utf32be_decode,
+ close = return (),
+ getState = return (),
+ setState = const $ return ()
+ })
+
+utf32be_EF :: IO (TextEncoder ())
+utf32be_EF =
+ return (BufferCodec {
+ encode = utf32be_encode,
+ close = return (),
+ getState = return (),
+ setState = const $ return ()
+ })