aboutsummaryrefslogtreecommitdiffhomepage
path: root/Pipes
diff options
context:
space:
mode:
authormichaelt <what_is_it_to_do_anything@yahoo.com>2014-03-20 21:12:29 -0400
committermichaelt <what_is_it_to_do_anything@yahoo.com>2014-03-20 21:12:29 -0400
commit10cfd90ed71019539410b21defad6093117ca316 (patch)
tree0896e1ad76d9e1a570ac094c99a0b54481c5ab43 /Pipes
parent839d2cb0c0552bbe5d2351cbfe0f1b5de225ee1a (diff)
downloadtext-pipes-10cfd90ed71019539410b21defad6093117ca316.tar.gz
text-pipes-10cfd90ed71019539410b21defad6093117ca316.tar.zst
text-pipes-10cfd90ed71019539410b21defad6093117ca316.zip
Gabriel G: generalize type encode functions
Diffstat (limited to 'Pipes')
-rw-r--r--Pipes/Text/Encoding.hs10
1 files changed, 5 insertions, 5 deletions
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
242 using the encoding functions from Data.Text.Encoding 242 using the encoding functions from Data.Text.Encoding
243-} 243-}
244 244
245encodeUtf8 :: Monad m => Text -> Producer ByteString m () 245encodeUtf8 :: Monad m => Text -> Producer' ByteString m ()
246encodeUtf8 = yield . TE.encodeUtf8 246encodeUtf8 = yield . TE.encodeUtf8
247encodeUtf16LE :: Monad m => Text -> Producer ByteString m () 247encodeUtf16LE :: Monad m => Text -> Producer' ByteString m ()
248encodeUtf16LE = yield . TE.encodeUtf16LE 248encodeUtf16LE = yield . TE.encodeUtf16LE
249encodeUtf16BE :: Monad m => Text -> Producer ByteString m () 249encodeUtf16BE :: Monad m => Text -> Producer' ByteString m ()
250encodeUtf16BE = yield . TE.encodeUtf16BE 250encodeUtf16BE = yield . TE.encodeUtf16BE
251encodeUtf32LE :: Monad m => Text -> Producer ByteString m () 251encodeUtf32LE :: Monad m => Text -> Producer' ByteString m ()
252encodeUtf32LE = yield . TE.encodeUtf32LE 252encodeUtf32LE = yield . TE.encodeUtf32LE
253encodeUtf32BE :: Monad m => Text -> Producer ByteString m () 253encodeUtf32BE :: Monad m => Text -> Producer' ByteString m ()
254encodeUtf32BE = yield . TE.encodeUtf32BE 254encodeUtf32BE = yield . TE.encodeUtf32BE
255 255
256mkCodec :: (forall r m . Monad m => 256mkCodec :: (forall r m . Monad m =>