module Language.Jsonnet.TH.QQ where import qualified Data.Text as T import Language.Haskell.TH.Quote (QuasiQuoter (..)) import Language.Jsonnet.TH jsonnet :: QuasiQuoter jsonnet :: QuasiQuoter jsonnet = QuasiQuoter :: (String -> Q Exp) -> (String -> Q Pat) -> (String -> Q Type) -> (String -> Q [Dec]) -> QuasiQuoter QuasiQuoter { quoteExp :: String -> Q Exp quoteExp = \String str -> String -> Text -> Q Exp parse String "" (String -> Text T.pack String str), quotePat :: String -> Q Pat quotePat = String -> String -> Q Pat forall a. HasCallStack => String -> a error String "Usage as a pattern is not supported", quoteType :: String -> Q Type quoteType = String -> String -> Q Type forall a. HasCallStack => String -> a error String "Usage as a type is not supported", quoteDec :: String -> Q [Dec] quoteDec = String -> String -> Q [Dec] forall a. HasCallStack => String -> a error String "Usage as a declaration is not supported" }