From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Thu, 1 May 2008 19:32:59 +0000 (+0100)
Subject: Error in return type - should have been bool (how did this ever compile???)
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=954c018589d141c7951d1429162db03a232fdb49;p=virt-df.git

Error in return type - should have been bool (how did this ever compile???)
---

diff --git a/diskzip/diskzip.ml b/diskzip/diskzip.ml
index 7e2969a..75fffc6 100644
--- a/diskzip/diskzip.ml
+++ b/diskzip/diskzip.ml
@@ -39,10 +39,11 @@ let rec main () =
     match name with
     | "diskzcat" -> false
     | "diskzip" -> true
-    | name ->
+    | _ ->
 	eprintf
 	  (f_"diskzip: unknown executable name '%s', assuming 'diskzip'\n")
-	  name in
+	  name;
+	true in
   let compressing = ref compressing in
 
   (* Command line argument parsing. *)