mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 13:02:11 +03:00
b091c75372
PR-URL: https://github.com/hasura/graphql-engine-mono/pull/3421 GitOrigin-RevId: 8802d7e6a360edee62011ef371cc8930f36b25b1
18 lines
463 B
Haskell
18 lines
463 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.Quoter.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"
|
|
}
|