Fix issue #6: extra space in family comment.

geneweb · Jan 24, 2016 · 8f1d9a5 · 8f1d9a5
1 parent 613d99b
commit 8f1d9a5
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/gwu.ml b/src/gwu.ml
@@ -792,16 +792,16 @@ value print_comment_for_family oc base gen fam =
     old_gw.val && (fevents <> [] || sou base (get_marriage_note fam) <> "")
   in
   if (comm <> "" || has_evt) then do {
-    fprintf oc "comm ";
-    if comm <> "" then fprintf oc "%s " (no_newlines comm)
+    fprintf oc "comm";
+    if comm <> "" then fprintf oc " %s" (no_newlines comm)
     else ();
     if old_gw.val then do {
       if sou base (get_marriage_note fam) <> "" then
-        fprintf oc "marriage: %s "
+        fprintf oc " marriage: %s"
           (no_newlines (sou base (get_marriage_note fam)))
       else ();
       List.iter
-        (fun e -> do {print_fevent oc base gen True e; fprintf oc " "})
+        (fun e -> do {fprintf oc " "; print_fevent oc base gen True e})
         fevents;
     }
     else ();