diff options
| author | michaelt <what_is_it_to_do_anything@yahoo.com> | 2014-03-20 21:12:29 -0400 |
|---|---|---|
| committer | michaelt <what_is_it_to_do_anything@yahoo.com> | 2014-03-20 21:12:29 -0400 |
| commit | 10cfd90ed71019539410b21defad6093117ca316 (patch) | |
| tree | 0896e1ad76d9e1a570ac094c99a0b54481c5ab43 /Pipes/Text/Encoding.hs | |
| parent | 839d2cb0c0552bbe5d2351cbfe0f1b5de225ee1a (diff) | |
| download | text-pipes-10cfd90ed71019539410b21defad6093117ca316.tar.gz text-pipes-10cfd90ed71019539410b21defad6093117ca316.tar.zst text-pipes-10cfd90ed71019539410b21defad6093117ca316.zip | |
Gabriel G: generalize type encode functions
Diffstat (limited to 'Pipes/Text/Encoding.hs')
| -rw-r--r-- | Pipes/Text/Encoding.hs | 10 |
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 | ||
| 245 | encodeUtf8 :: Monad m => Text -> Producer ByteString m () | 245 | encodeUtf8 :: Monad m => Text -> Producer' ByteString m () |
| 246 | encodeUtf8 = yield . TE.encodeUtf8 | 246 | encodeUtf8 = yield . TE.encodeUtf8 |
| 247 | encodeUtf16LE :: Monad m => Text -> Producer ByteString m () | 247 | encodeUtf16LE :: Monad m => Text -> Producer' ByteString m () |
| 248 | encodeUtf16LE = yield . TE.encodeUtf16LE | 248 | encodeUtf16LE = yield . TE.encodeUtf16LE |
| 249 | encodeUtf16BE :: Monad m => Text -> Producer ByteString m () | 249 | encodeUtf16BE :: Monad m => Text -> Producer' ByteString m () |
| 250 | encodeUtf16BE = yield . TE.encodeUtf16BE | 250 | encodeUtf16BE = yield . TE.encodeUtf16BE |
| 251 | encodeUtf32LE :: Monad m => Text -> Producer ByteString m () | 251 | encodeUtf32LE :: Monad m => Text -> Producer' ByteString m () |
| 252 | encodeUtf32LE = yield . TE.encodeUtf32LE | 252 | encodeUtf32LE = yield . TE.encodeUtf32LE |
| 253 | encodeUtf32BE :: Monad m => Text -> Producer ByteString m () | 253 | encodeUtf32BE :: Monad m => Text -> Producer' ByteString m () |
| 254 | encodeUtf32BE = yield . TE.encodeUtf32BE | 254 | encodeUtf32BE = yield . TE.encodeUtf32BE |
| 255 | 255 | ||
| 256 | mkCodec :: (forall r m . Monad m => | 256 | mkCodec :: (forall r m . Monad m => |