mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-19 13:31:43 +03:00
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"
|
||
|
|
}
|