graphql-engine/server/src-lib/Hasura/Backends/MSSQL/SQL/Value.hs

module Hasura.Backends.MSSQL.SQL.Value (txtEncodedColVal) where

import           Hasura.Prelude

import qualified Database.ODBC.SQLServer               as ODBC
import           Hasura.GraphQL.Execute.LiveQuery.Plan ()
import qualified Hasura.RQL.Types.Column               as RQL

import           Data.Text.Encoding                    (decodeUtf8)

import           Hasura.Backends.MSSQL.Types.Internal  (Expression (..), Value)
import           Hasura.SQL.Backend
import           Hasura.SQL.Types                      (toSQLTxt)
import           Hasura.SQL.Value                      (TxtEncodedVal (..))

txtEncodedVal :: Value -> TxtEncodedVal
txtEncodedVal ODBC.NullValue           = TENull
txtEncodedVal (ODBC.ByteStringValue b) = TELit $ decodeUtf8 b
txtEncodedVal (ODBC.TextValue t)       = TELit t
txtEncodedVal val                      = TELit $ toSQLTxt $ ValueExpression val

txtEncodedColVal :: RQL.ColumnValue 'MSSQL -> TxtEncodedVal
txtEncodedColVal = txtEncodedVal . RQL.cvValue