wyvern-diagrams-0.4.2.0: src/lib/ID.hs

module ID where

newtype ID
  = ID String

instance Eq ID where
  (==) (ID a) (ID b) = a == b

instance Ord ID where
  compare (ID a) (ID b) = compare a b
  (<) (ID a) (ID b) = a < b
  (>=) (ID a) (ID b) = a >= b
  (>) (ID a) (ID b) = a > b
  (<=) (ID a) (ID b) = a <= b
  min (ID a) (ID b) = ID $ min a b
  max (ID a) (ID b) = ID $ max a b

instance Show ID where
  show (ID x) = show x