mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
17 lines
443 B
Haskell
17 lines
443 B
Haskell
|
module Data.Text.RawString (raw) where
|
||
|
|
|
||
|
|
import Hasura.Prelude
|
||
|
|
import Language.Haskell.TH
|
||
|
|
import Language.Haskell.TH.Quote
|
||
|
|
|
||
|
|
raw :: QuasiQuoter
|
||
|
|
raw =
|
||
|
|
QuasiQuoter
|
||
|
|
{ quoteExp = pure . LitE . StringL,
|
||
|
|
quotePat = const $ failWith "pattern",
|
||
|
|
quoteType = const $ failWith "type",
|
||
|
|
quoteDec = const $ failWith "declaration"
|
||
|
|
}
|
||
|
|
where
|
||
|
|
failWith t = fail $ "illegal raw string quote location; expected expresion, got " <> t
|