• R/O
  • HTTP
  • SSH
  • HTTPS

transunit: Commit

Transunit repository


Commit MetaInfo

Revision3bc591856276b8ae7bc7554f1a9a29f2293e8468 (tree)
Zeit2020-06-01 07:14:28
AutorAlaskanEmily <emily@alas...>
CommiterAlaskanEmily

Log Message

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

Ändern Zusammenfassung

Diff

--- a/transunit.compare.m
+++ b/transunit.compare.m
@@ -41,6 +41,7 @@
4141 :- instance to_string(int).
4242 :- instance to_string(string).
4343 :- instance to_string(float).
44+:- instance to_string(bitmap.bitmap).
4445 :- instance to_string(bool.bool).
4546 :- instance to_string(maybe.maybe(T)) <= to_string(T).
4647 :- 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 :-
166167 func(to_string/1) is string.from_float
167168 ].
168169
170+:- instance to_string(bitmap.bitmap) where [
171+ func(to_string/1) is bitmap.to_string
172+].
173+
169174 :- instance to_string(bool.bool) where [
170175 (to_string(bool.yes) = "bool.yes"),
171176 (to_string(bool.no) = "bool.no")
Show on old repository browser