[Limacute-commit] r18 - trunk/cybar

[limacute at projects.linpro.no]

Author: limacute
Date: 2006-12-01 15:49:12 +0100 (Fri, 01 Dec 2006)
New Revision: 18

Modified:
   trunk/cybar/cybar.ml
Log:
Small documentation change.



Modified: trunk/cybar/cybar.ml
===================================================================
--- trunk/cybar/cybar.ml	2006-11-30 22:24:25 UTC (rev 17)
+++ trunk/cybar/cybar.ml	2006-12-01 14:49:12 UTC (rev 18)
@@ -516,11 +516,11 @@
   Str.global_replace (Str.regexp "\\.") "^" s
 ;;
 
-(* Show the user in mboxlist format:
+let dot_regexp = Str.regexp "\\.";;
+(** Show the user in mboxlist format:
  *     doe.com!user.john
  *     user.john
  *)
-let dot_regexp = Str.regexp "\\.";;
 let show_cyrus user = 
   let localpart = cyrus_escape user.localpart in
   let pre = match user.domain with