Move tag_delta_to_string to more appropriate module.

wangp · May 12, 2012 · 8e81550 · 8e81550
1 parent 00851dd
commit 8e81550
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/maildir.m b/maildir.m
@@ -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
diff --git a/tags.m b/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")).