From 388371e1364d03040d4f042a375f8f2ef6d96baa Mon Sep 17 00:00:00 2001
From: chicco <chicco@crans.org>
Date: Thu, 2 Jul 2009 19:53:14 +0200
Subject: [PATCH] =?UTF-8?q?quitte=20=C3=A0=20lancer=20des=20trolls,=20auta?=
 =?UTF-8?q?nt=20le=20faire=20avec=20un=20code=20qui=20compile...?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Ignore-this: ec46dacb542e7a796746392b6a30ea2d

darcs-hash:20090702175314-b1672-abcc6984fa5917f7eb27236ebc194e9d71604a6d.gz
---
 impression/wrapper_canon.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/impression/wrapper_canon.ml b/impression/wrapper_canon.ml
index 69177d35..b7610dd1 100644
--- a/impression/wrapper_canon.ml
+++ b/impression/wrapper_canon.ml
@@ -46,7 +46,7 @@ let _MediaSize () = string_of_int (match String.lowercase (!papier) with
   | "c5 env" -> 9
   | "b5 env" -> 10
   | "dl env" -> 11
-  | _ -> raise (Arg.Bad ("%s wrong papersize" % !papier))
+  | _ -> raise (Arg.Bad ("%s wrong papersize" % !papier)))
 
 let papertype = ref "Ordinaire"
 let _MediaType () = List.assoc !papertype& List.map (fun (x,y) -> y,x)