burrito-1.0.1.0: src/lib/Burrito/Type/Token.hs

{-# LANGUAGE DeriveLift #-}

module Burrito.Type.Token
  ( Token(..)
  ) where

import qualified Burrito.Type.Expression as Expression
import qualified Burrito.Type.Literal as Literal
import qualified Language.Haskell.TH.Syntax as TH


-- | Represents a token in a template.
data Token
  = Expression Expression.Expression
  | Literal Literal.Literal
  deriving (Eq, TH.Lift, Show)