1
module UU.Scanner.GenTokenOrd() where
3
import UU.Scanner.GenToken(GenToken(..))
5
instance (Eq key, Eq tp) => Eq (GenToken key tp val) where
6
Reserved x _ == Reserved y _ = x == y
7
ValToken tx _ _ == ValToken ty _ _ = tx == ty
10
instance (Ord key, Ord tp) => Ord (GenToken key tp val) where
11
compare (Reserved x _) (Reserved y _) = compare x y
12
compare (Reserved _ _) _ = LT
13
compare (ValToken tx _ _) (ValToken ty _ _) = compare tx ty
b'\\ No newline at end of file'