module Tedious.Quasi (
  tedious
) where

import Tedious.Parser (decTedious)
import Language.Haskell.TH.Quote (QuasiQuoter (..))

tedious :: QuasiQuoter
tedious :: QuasiQuoter
tedious =
  QuasiQuoter
    { quoteExp :: String -> Q Exp
quoteExp = String -> String -> Q Exp
forall a. HasCallStack => String -> a
error String
"tedious cannot be used as exp",
      quotePat :: String -> Q Pat
quotePat = String -> String -> Q Pat
forall a. HasCallStack => String -> a
error String
"tedious cannot be used as pat",
      quoteType :: String -> Q Type
quoteType = String -> String -> Q Type
forall a. HasCallStack => String -> a
error String
"tedious cannot be used as type",
      quoteDec :: String -> Q [Dec]
quoteDec = String -> Q [Dec]
decTedious
    }