From: rich <rich>
Date: Mon, 11 Sep 2006 10:01:07 +0000 (+0000)
Subject: Minor fix in -dhost param.
X-Git-Url: http://git.annexia.org/?p=cocanwiki.git;a=commitdiff_plain;h=3d04d3b58504b9d294245f199aab4dc92ef204f4

Minor fix in -dhost param.
---

diff --git a/tools/copy_host.ml b/tools/copy_host.ml
index e1e0a0b..e8c27cd 100644
--- a/tools/copy_host.ml
+++ b/tools/copy_host.ml
@@ -3,7 +3,7 @@
  *
  * Use 'copy_host --help' for usage.
  *
- * $Id: copy_host.ml,v 1.2 2006/09/11 09:58:43 rich Exp $
+ * $Id: copy_host.ml,v 1.3 2006/09/11 10:01:07 rich Exp $
  *)
 
 open Printf
@@ -329,7 +329,7 @@ let () =
   let dcanonical_hostname, dhostnames =
     match dhost with
     | [] -> scanonical_hostname, shostnames
-    | x :: xs -> x, xs in
+    | x :: xs -> x, (x :: xs) in
 
   print_endline "Create new host ...";