mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 21:12:09 +03:00
ec8b2c80b5
* remove phase one/two distinction and hdbquery typeclass * move extensions to default-extensions * switch to LazyTx which only acquires a connection if needed * move defns from TH module into Ops module * remove tojson orphan instance for http exception * remove orphan instance for dmlp1 * getTopLevelNodes will not throw any exceptions
29 lines
590 B
Haskell
29 lines
590 B
Haskell
module Data.Text.Extended
|
|
( module DT
|
|
, squote
|
|
, dquote
|
|
, paren
|
|
, (<->)
|
|
) where
|
|
|
|
import Hasura.Prelude
|
|
|
|
import Data.Text as DT
|
|
|
|
squote :: DT.Text -> DT.Text
|
|
squote t = DT.singleton '\'' <> t <> DT.singleton '\''
|
|
{-# INLINE squote #-}
|
|
|
|
dquote :: DT.Text -> DT.Text
|
|
dquote t = DT.singleton '"' <> t <> DT.singleton '"'
|
|
{-# INLINE dquote #-}
|
|
|
|
paren :: DT.Text -> DT.Text
|
|
paren t = "(" <> t <> ")"
|
|
{-# INLINE paren #-}
|
|
|
|
infixr 6 <->
|
|
(<->) :: DT.Text -> DT.Text -> DT.Text
|
|
(<->) l r = l <> DT.singleton ' ' <> r
|
|
{-# INLINE (<->) #-}
|