Use correct typeclass in compare_tests

[transunit/transunit.git] / transunit.compare.m

diff --git a/transunit.compare.m b/transunit.compare.m
index 6c3f67f..93f9eff 100644 (file)
--- a/transunit.compare.m
+++ b/transunit.compare.m
@@ -59,6 +59,10 @@
 
 %------------------------------------------------------------------------------%
 
+:- func simple_compare(T, T) = maybe.maybe_error.
+
+%------------------------------------------------------------------------------%
+
 :- func negate(float) = float.
 
 %------------------------------------------------------------------------------%
@@ -150,6 +154,11 @@ generic_compare(A, B) = Result :-
 
 %------------------------------------------------------------------------------%
 
+simple_compare(A, B) = Result :-
+    ( A = B -> Result = maybe.ok ; Result = maybe.error("Not equal") ).
+
+%------------------------------------------------------------------------------%
+
 :- pred accumulate_mismatch(T, T, list(string), list(string), int, int)
     <= compare(T).
 :- mode accumulate_mismatch(in, in, in, out, in, out) is det.