uulib-0.9.13: src/UU/Scanner/GenTokenSymbol.hs

{-# LANGUAGE  MagicHash #-}

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

instance Symbol (GenToken key tp val) where
  deleteCost (Reserved _ _) = 5#
  deleteCost _              = 5#