hpqtypes-1.12.0.0: src/Database/PostgreSQL/PQTypes/XML.hs

module Database.PostgreSQL.PQTypes.XML
  ( XML (..)
  ) where

import Data.ByteString.Char8 qualified as BSC
import Data.Text

import Database.PostgreSQL.PQTypes.Format
import Database.PostgreSQL.PQTypes.FromSQL
import Database.PostgreSQL.PQTypes.Internal.C.Types
import Database.PostgreSQL.PQTypes.ToSQL

-- | Representation of SQL XML types as 'Text'.  Users of hpqtypes may
-- want to add conversion instances for their favorite XML type around 'XML'.
newtype XML = XML {unXML :: Text}
  deriving (Eq, Ord, Read, Show)

instance PQFormat XML where
  pqFormat = BSC.pack "%xml"

instance FromSQL XML where
  type PQBase XML = PGbytea
  fromSQL = fmap XML . fromSQL

instance ToSQL XML where
  type PQDest XML = PGbytea
  toSQL = toSQL . unXML