From 10cfd90ed71019539410b21defad6093117ca316 Mon Sep 17 00:00:00 2001 From: michaelt Date: Thu, 20 Mar 2014 21:12:29 -0400 Subject: Gabriel G: generalize type encode functions --- Pipes/Text/Encoding.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Pipes/Text/Encoding.hs') diff --git a/Pipes/Text/Encoding.hs b/Pipes/Text/Encoding.hs index d727c2c..37a4aa3 100644 --- a/Pipes/Text/Encoding.hs +++ b/Pipes/Text/Encoding.hs @@ -242,15 +242,15 @@ decodeUtf32BE = decodeStream streamUtf32BE using the encoding functions from Data.Text.Encoding -} -encodeUtf8 :: Monad m => Text -> Producer ByteString m () +encodeUtf8 :: Monad m => Text -> Producer' ByteString m () encodeUtf8 = yield . TE.encodeUtf8 -encodeUtf16LE :: Monad m => Text -> Producer ByteString m () +encodeUtf16LE :: Monad m => Text -> Producer' ByteString m () encodeUtf16LE = yield . TE.encodeUtf16LE -encodeUtf16BE :: Monad m => Text -> Producer ByteString m () +encodeUtf16BE :: Monad m => Text -> Producer' ByteString m () encodeUtf16BE = yield . TE.encodeUtf16BE -encodeUtf32LE :: Monad m => Text -> Producer ByteString m () +encodeUtf32LE :: Monad m => Text -> Producer' ByteString m () encodeUtf32LE = yield . TE.encodeUtf32LE -encodeUtf32BE :: Monad m => Text -> Producer ByteString m () +encodeUtf32BE :: Monad m => Text -> Producer' ByteString m () encodeUtf32BE = yield . TE.encodeUtf32BE mkCodec :: (forall r m . Monad m => -- cgit v1.2.3