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