Fixed 12hour calculation in date time printer

daypack-dev · Apr 12, 2024 · b66d506 · b66d506
1 parent c66de19
commit b66d506
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/timedesc/printers.ml b/timedesc/printers.ml
@@ -144,7 +144,10 @@ module Format_string_parsers = struct
          *> commit
          *> padding
          >>= fun padding ->
-         let hour = if hour = 0 then 12 else hour mod 12 in
+         let hour =
+           if hour = 0 then 12
+           else if hour > 12 then hour - 12 else hour
+         in
          return (pad_int padding hour));
         (string "min:"
          *> commit