Add transunit.compare.to_string(bitmap.bitmap) using bitmap.to_string

diff --git a/transunit.compare.m b/transunit.compare.m
index ac52e41..254b8c1 100644 (file)
--- a/transunit.compare.m
+++ b/transunit.compare.m
@@ -41,6 +41,7 @@
 :- instance to_string(int).
 :- instance to_string(string).
 :- instance to_string(float).
+:- instance to_string(bitmap.bitmap).
 :- instance to_string(bool.bool).
 :- instance to_string(maybe.maybe(T)) <= to_string(T).
 :- instance to_string(pair.pair(A, B)) <= (to_string(A), to_string(B)).
@@ -166,6 +167,10 @@ compare_bits(N, I1, I2, BMP1, BMP2) = Result :-
     func(to_string/1) is string.from_float
 ].
 
+:- instance to_string(bitmap.bitmap) where [
+    func(to_string/1) is bitmap.to_string
+].
+
 :- instance to_string(bool.bool) where [
     (to_string(bool.yes) = "bool.yes"),
     (to_string(bool.no) = "bool.no")