Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] file_mimetype: unused ident in release mode

  • Loading branch information...
commit 3a218854ce1fc6bb77407809e2f38d26b46e44b3 1 parent 6e6731f
@OpaOnWindowsNow OpaOnWindowsNow authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 libbase/file_mimetype.ml
View
4 libbase/file_mimetype.ml
@@ -128,8 +128,8 @@ let ipp fmt =
Printf.ifprintf stdout (fmt^^"\n%!")
let debug ?(level=0) fmt =
- let level = succ level in
- #<If$minlevel level> Printf.printf ("[1m[30m[MimeType][0m "^^fmt^^"\n%!")
+ let _level = succ level in
+ #<If$minlevel _level> Printf.printf ("[1m[30m[MimeType][0m "^^fmt^^"\n%!")
#<Else> Printf.ifprintf stdout fmt #<End>
Please sign in to comment.
Something went wrong with that request. Please try again.