mirror of
https://github.com/zhigang1992/graphql-engine.git
synced 2026-05-23 16:29:35 +08:00
18 lines
449 B
Haskell
18 lines
449 B
Haskell
{-# LANGUAGE FlexibleContexts #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module TH
|
|
( metadataQuery
|
|
) where
|
|
|
|
import Language.Haskell.TH.Syntax (Q, TExp, unTypeQ)
|
|
|
|
import qualified Data.Yaml.TH as Y
|
|
|
|
import Hasura.Server.Query
|
|
|
|
metadataQuery :: RQLQuery
|
|
metadataQuery = $(unTypeQ (Y.decodeFile "src-rsr/hdb_metadata.yaml" :: Q (TExp RQLQuery)))
|