From 042f64707ee30fdd90cac2c3a7f4153a11835089 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Wed, 25 Nov 2015 11:57:48 +0000 Subject: [PATCH] Fix warning 52 in OCaml 4.03 --- cpdf.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cpdf.ml b/cpdf.ml index bd20f33..46e08fa 100644 --- a/cpdf.ml +++ b/cpdf.ml @@ -3285,7 +3285,7 @@ let thinlines range width pdf = (scale, _, _, _, _, _) -> scale with - Failure "hd" -> 1. + Failure _ (*"hd"*) -> 1. in let rec replace_operators prev = function | [] -> rev prev @@ -3302,7 +3302,7 @@ let thinlines range width pdf = let top = hd !ctmstack in top := Pdftransform.matrix_compose !top m with - Failure "hd" -> error "Malformed file." + Failure _ (*"hd"*) -> error "Malformed file." end; replace_operators ((Pdfops.Op_cm m)::prev) more | Pdfops.Op_q::more -> @@ -3310,7 +3310,7 @@ let thinlines range width pdf = begin try ctmstack =| ref (!(hd !ctmstack)) with - Failure "hd" -> error "Malformed file" + Failure _ (*"hd"*) -> error "Malformed file" end; replace_operators (Pdfops.Op_q::prev) more | Pdfops.Op_Q::more -> @@ -3318,7 +3318,7 @@ let thinlines range width pdf = begin try ctmstack := tl !ctmstack with - Failure "tl" -> error "Malformed file" + Failure _ (*"tl"*) -> error "Malformed file" end; replace_operators (Pdfops.Op_Q::prev) more | (Pdfops.Op_gs gsname)::more ->