{-# 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."
    }