# --------------------------------------------------------------------------- #
# Eq Role
# --------------------------------------------------------------------------- #
# - based on the Haskell class Eq
# - circularly defined, implementer will need to define something
#   this may not be a good idea, but it's damn cool :P
# --------------------------------------------------------------------------- #

^Eq := ^Role.new({});

^Eq.set_name('Eq');
^Eq.set_version('0.0.1');
^Eq.set_authority('url:pugscode.org');

^Eq.add_method('infix:<==>',  -> $other {
	self.infix:<!=>($other)`not()
});

^Eq.add_method('infix:<!=>',  -> $other {
	self.infix:<==>($other)`not()
});