[Unison-hackers] [unison-svn] r445 - trunk/src/ubase

[schmitta@seas.upenn.edu]

Author: schmitta
Date: 2010-05-07 07:13:51 -0400 (Fri, 07 May 2010)
New Revision: 445

Modified:
   trunk/src/ubase/prefs.ml
Log:
Lines added in profile files by unison always start at a new line



Modified: trunk/src/ubase/prefs.ml
===================================================================
--- trunk/src/ubase/prefs.ml	2010-05-06 09:28:05 UTC (rev 444)
+++ trunk/src/ubase/prefs.ml	2010-05-07 11:13:51 UTC (rev 445)
@@ -482,8 +482,8 @@
     let ochan =
       System.open_out_gen [Open_wronly; Open_creat; Open_append] 0o600 filename
     in
+    output_string ochan "\n";
     output_string ochan l;
-    output_string ochan "\n";
     close_out ochan;
     resultmsg
   with