{-# 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 :: GenToken key tp val -> Int# deleteCost (Reserved key _ Pos _) = Int# 5# deleteCost GenToken key tp val _ = Int# 5#