eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge 0cf045b8fd into b3214eac38

Browse Source
This commit is contained in:
plredmond 2023-01-29 20:28:54 +00:00 committed by GitHub
commit d660a76062
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
servant/src/Servant/API/ContentTypes.hs
View File

@ -82,10 +82,11 @@ import Data.Aeson.Types
(parseEither) (parseEither)
import Data.Attoparsec.ByteString.Char8 import Data.Attoparsec.ByteString.Char8
(endOfInput, parseOnly, skipSpace, (<?>)) (endOfInput, parseOnly, skipSpace, (<?>))
import Data.Bifunctor
(bimap)
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Data.ByteString.Lazy import Data.ByteString.Lazy
(ByteString, fromStrict, toStrict) (ByteString, fromStrict, toStrict)
import qualified Data.ByteString.Lazy.Char8 as BC
import qualified Data.List.NonEmpty as NE import qualified Data.List.NonEmpty as NE
import Data.Maybe import Data.Maybe
(isJust) (isJust)
@ -350,7 +351,7 @@ instance MimeRender PlainText TextS.Text where
-- | @BC.pack@ -- | @BC.pack@
instance MimeRender PlainText String where instance MimeRender PlainText String where
mimeRender _ = BC.pack mimeRender _ = TextL.encodeUtf8 . TextL.pack
-- | @id@ -- | @id@
instance MimeRender OctetStream ByteString where instance MimeRender OctetStream ByteString where
@ -409,7 +410,7 @@ instance MimeUnrender PlainText TextS.Text where
-- | @Right . BC.unpack@ -- | @Right . BC.unpack@
instance MimeUnrender PlainText String where instance MimeUnrender PlainText String where
mimeUnrender _ = Right . BC.unpack mimeUnrender _ = bimap show TextL.unpack . TextL.decodeUtf8'
-- | @Right . id@ -- | @Right . id@
instance MimeUnrender OctetStream ByteString where instance MimeUnrender OctetStream ByteString where