{-# LANGUAGE  MagicHash #-}

module UU.Scanner.GenTokenSymbol() where
import UU.Scanner.GenToken(GenToken(..))
import UU.Parsing.MachineInterface(Symbol(..))

instance Symbol (GenToken key tp val) where
  deleteCost :: GenToken key tp val -> Int#
deleteCost (Reserved key
_ Pos
_) = Int#
5#
  deleteCost GenToken key tp val
_              = Int#
5#