{-# LANGUAGE TemplateHaskell #-} module Clckwrks.Page.Verbatim ( verbatimText ) where import qualified Data.Text as Text import Language.Haskell.TH.Quote verbatimText :: QuasiQuoter verbatimText :: QuasiQuoter verbatimText = QuasiQuoter :: (String -> Q Exp) -> (String -> Q Pat) -> (String -> Q Type) -> (String -> Q [Dec]) -> QuasiQuoter QuasiQuoter { quoteExp :: String -> Q Exp quoteExp = \String s -> [| Text.pack s |] , quotePat :: String -> Q Pat quotePat = String -> String -> Q Pat forall a. HasCallStack => String -> a error String "verbatim-text: quotePat not supported." , quoteType :: String -> Q Type quoteType = String -> String -> Q Type forall a. HasCallStack => String -> a error String "verbatim-text: quotePat not supported." , quoteDec :: String -> Q [Dec] quoteDec = String -> String -> Q [Dec] forall a. HasCallStack => String -> a error String "verbatim-text: quotePat not supported." }