orderPrec :: PrecFix -> PrecFix -> Fixity
orderPrec (p1,d1) (p2,d2) = case compare p1 p2 of
    LT -> RightFix
    GT -> LeftFix
    EQ -> if d1 == d2 then d1 else NonFix
orderPrec :: PrecFix -> PrecFix -> Fixity
orderPrec (p1,d1) (p2,d2) = case compare p1 p2 of
    LT -> RightFix
    GT -> LeftFix
    EQ -> if d1 == d2 then d1 else NonFix
orderPrec (p1,d1) (p2,d2) = case compare p1 p2 of
    LT -> RightFix
    GT -> LeftFix
    EQ -> if d1 == d2 then d1 else NonFix