{-# OPTIONS_GHC -fno-warn-orphans #-}
module Database.Relational.PureUTF8 () where
import Control.Applicative (pure)
import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy as LB
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as LT
import qualified Data.Text.Lazy.Encoding as LT
import qualified Database.Relational.Internal.Literal as Lit
import Database.Relational.ProjectableClass (LiteralSQL (..))
instance LiteralSQL ByteString where
showLiteral' = pure . Lit.stringExpr . T.unpack . T.decodeUtf8
instance LiteralSQL LB.ByteString where
showLiteral' = pure . Lit.stringExpr . LT.unpack . LT.decodeUtf8