Silence no-return warning

This commit is contained in:
John Whitington 2024-04-16 07:49:11 +08:00
parent ea0e29d802
commit 3671c2d14b
1 changed files with 1 additions and 1 deletions

View File

@ -35,6 +35,6 @@ let jpeg2000_dimensions_inner bs =
done done
let jpeg2000_dimensions bs = let jpeg2000_dimensions bs =
try jpeg2000_dimensions_inner bs; (0, 0) with try ignore (jpeg2000_dimensions_inner bs); (0, 0) with
| Answer (w, h) -> (w, h) | Answer (w, h) -> (w, h)
| Exit -> error "could not determine JPEG2000 dimensions" | Exit -> error "could not determine JPEG2000 dimensions"