mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 13:02:11 +03:00
1f14781d15
dupe of @chrisdone's work https://github.com/hasura/graphql-engine-mono/pull/2829 with a branch rename PR-URL: https://github.com/hasura/graphql-engine-mono/pull/2901 Co-authored-by: Chris Done <11019+chrisdone@users.noreply.github.com> GitOrigin-RevId: 8381e53a18242b75d7e17b18a2ba3b2d99dd1322
18 lines
456 B
Haskell
18 lines
456 B
Haskell
-- | Simple SQL quasi quoter. Even if this doesn't do anything, it's
|
|
-- still useful. Some editors (Emacs) display [sql| ...|] with SQL
|
|
-- syntax highlighting.
|
|
module Harness.Sql (sql) where
|
|
|
|
import Language.Haskell.TH
|
|
import Language.Haskell.TH.Quote
|
|
import Prelude
|
|
|
|
sql :: QuasiQuoter
|
|
sql =
|
|
QuasiQuoter
|
|
{ quoteExp = stringE,
|
|
quotePat = \_ -> fail "invalid",
|
|
quoteType = \_ -> fail "invalid",
|
|
quoteDec = \_ -> fail "invalid"
|
|
}
|