Permalink
Browse files

Move tag_delta_to_string to more appropriate module.

  • Loading branch information...
1 parent 00851dd commit 8e815502917be041765d84d3238c15b8c41f6470 @wangp committed Apr 25, 2012
Showing with 6 additions and 4 deletions.
  1. +0 −4 maildir.m
  2. +6 −0 tags.m
View
@@ -133,9 +133,5 @@
Res = error(Error)
).
-:- func tag_delta_to_string(tag_delta) = string.
-
-tag_delta_to_string(tag_delta(String)) = String.
-
%-----------------------------------------------------------------------------%
% vim: ft=mercury ts=4 sts=4 sw=4 et
View
6 tags.m
@@ -32,6 +32,8 @@
:- type tag_delta
---> tag_delta(string). % +tag or -tag
+:- func tag_delta_to_string(tag_delta) = string.
+
:- pred standard_tag(tag::in) is semidet.
:- pred get_standard_tag_state(set(tag)::in,
@@ -57,6 +59,10 @@
%-----------------------------------------------------------------------------%
+tag_delta_to_string(tag_delta(String)) = String.
+
+%-----------------------------------------------------------------------------%
+
standard_tag(tag("deleted")).
standard_tag(tag("flagged")).
standard_tag(tag("inbox")).

0 comments on commit 8e81550

Please sign in to comment.