crans/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

quitte à lancer des trolls, autant le faire avec un code qui compile...

Browse source 
Ignore-this: ec46dacb542e7a796746392b6a30ea2d

darcs-hash:20090702175314-b1672-abcc6984fa5917f7eb27236ebc194e9d71604a6d.gz
This commit is contained in:
chicco 2009-07-02 19:53:14 +02:00
parent 9ee3cb8883
commit 388371e136
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
impression/wrapper_canon.ml
View file

@ -46,7 +46,7 @@ let _MediaSize () = string_of_int (match String.lowercase (!papier) with
| "c5 env" -> 9 | "c5 env" -> 9
| "b5 env" -> 10 | "b5 env" -> 10
| "dl env" -> 11 | "dl env" -> 11
| _ -> raise (Arg.Bad ("%s wrong papersize" % !papier)) | _ -> raise (Arg.Bad ("%s wrong papersize" % !papier)))
let papertype = ref "Ordinaire" let papertype = ref "Ordinaire"
let _MediaType () = List.assoc !papertype& List.map (fun (x,y) -> y,x) let _MediaType () = List.assoc !papertype& List.map (fun (x,y) -> y,x)