Browse files

[fix] file_mimetype: unused ident in release mode

  • Loading branch information...
1 parent 6e6731f commit 3a218854ce1fc6bb77407809e2f38d26b46e44b3 @OpaOnWindowsNow OpaOnWindowsNow committed Sep 15, 2011
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>

0 comments on commit 3a21885

Please sign in to comment.