module UU.Scanner.GenToken where

import UU.Scanner.Position(Pos)

data GenToken key tp val =  Reserved !key !Pos
                         |  ValToken !tp val !Pos    
                 
position :: GenToken k t v -> Pos
position :: forall k t v. GenToken k t v -> Pos
position GenToken k t v
tok = case GenToken k t v
tok of
                   Reserved k
_ Pos
p   -> Pos
p
                   ValToken t
_ v
_ Pos
p -> Pos
p