graphql-engine/server/src-exec/TH.hs

{-# 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)))