mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-22 06:51:32 +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
19 lines
561 B
Haskell
19 lines
561 B
Haskell
-- | Simple GRAPHQL quasi quoter. Even if this doesn't do anything,
|
|
-- it's still useful. Some editors (Emacs) display [graphql| ...|]
|
|
-- with GraphQL syntax highlighting. In the future, it could do some
|
|
-- basic validation with the graphql parser.
|
|
module Harness.Graphql (graphql) where
|
|
|
|
import Language.Haskell.TH
|
|
import Language.Haskell.TH.Quote
|
|
import Prelude
|
|
|
|
graphql :: QuasiQuoter
|
|
graphql =
|
|
QuasiQuoter
|
|
{ quoteExp = stringE,
|
|
quotePat = \_ -> fail "invalid",
|
|
quoteType = \_ -> fail "invalid",
|
|
quoteDec = \_ -> fail "invalid"
|
|
}
|