diff --git a/bin/main.ml b/bin/main.ml
index c07a343..80514ba 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -3,10 +3,10 @@ include (val Logging.sublogs Server.logger "Main")
 let min_level =
   match Sys.getenv_opt "LOG_LEVEL" |> Option.map String.uppercase_ascii with
   | Some "TRACE" -> Logging.TRACE
-  | Some "DEBUG" -> Logging.TRACE
-  | Some "INFO" -> Logging.TRACE
-  | Some ("WARN" | "WARNING") -> Logging.TRACE
-  | Some ("ERR" | "ERROR") -> Logging.TRACE
+  | Some "DEBUG" -> Logging.DEBUG
+  | Some "INFO" -> Logging.INFO
+  | Some ("WARN" | "WARNING") -> Logging.WARN
+  | Some ("ERR" | "ERROR") -> Logging.ERROR
   | _ -> Logging.INFO
 
 let no_color = Option.is_some (Sys.getenv_opt "LOG_NO_COLOR")