module Pandora.Paradigm.Primary.Object.Ordering where data Ordering = Less | Equal | Greater order :: a -> a -> a -> Ordering -> a order :: a -> a -> a -> Ordering -> a order a _ a x a _ Ordering Less = a x order a y a _ a _ Ordering Equal = a y order a _ a _ a z Ordering Greater = a z