{-# OPTIONS_GHC -Wno-orphans #-}
module Orphans.Servant.Lucid where
import Data.ByteString.Lazy qualified as BL
import Data.Text (Text)
import Data.Text.Encoding (decodeUtf8)
import Servant.API (MimeUnrender (mimeUnrender))
import Servant.HTML.Lucid (HTML)
instance MimeUnrender HTML Text where
mimeUnrender :: Proxy HTML -> ByteString -> Either String Text
mimeUnrender Proxy HTML
_ = forall (f :: * -> *) a. Applicative f => a -> f a
pure forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Text
decodeUtf8 forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BL.toStrict