mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
11a454c2d6
This commit applies ormolu to the whole Haskell code base by running `make format`. For in-flight branches, simply merging changes from `main` will result in merge conflicts. To avoid this, update your branch using the following instructions. Replace `<format-commit>` by the hash of *this* commit. $ git checkout my-feature-branch $ git merge <format-commit>^ # and resolve conflicts normally $ make format $ git commit -a -m "reformat with ormolu" $ git merge -s ours post-ormolu https://github.com/hasura/graphql-engine-mono/pull/2404 GitOrigin-RevId: 75049f5c12f430c615eafb4c6b8e83e371e01c8e
21 lines
763 B
Haskell
21 lines
763 B
Haskell
module Hasura.Backends.MSSQL.SQL.Value (txtEncodedColVal) where
|
|
|
|
import Data.Text.Encoding (decodeUtf8)
|
|
import Data.Text.Extended
|
|
import Database.ODBC.SQLServer qualified as ODBC
|
|
import Hasura.Backends.MSSQL.Types.Internal (Value)
|
|
import Hasura.GraphQL.Execute.LiveQuery.Plan ()
|
|
import Hasura.Prelude
|
|
import Hasura.RQL.Types.Column qualified as RQL
|
|
import Hasura.SQL.Backend
|
|
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 $ toTxt $ ODBC.toSql val
|
|
|
|
txtEncodedColVal :: RQL.ColumnValue 'MSSQL -> TxtEncodedVal
|
|
txtEncodedColVal = txtEncodedVal . RQL.cvValue
|