Attempt to fix issue 58

ocsigen · Aug 9, 2016 · b969a48 · b969a48
1 parent 0c994e5
commit b969a48
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/widgets/ot_time_picker.eliom b/src/widgets/ot_time_picker.eliom
@@ -497,7 +497,7 @@ let make_hours_minutes_seq_24h
      ignore [%client
        (ignore @@
         let f (h, m) =
-          let h, b = if h > 12 then h - 12, false else h, true in
+          let h, b = if h >= 12 then h - 12, false else h, true in
           ~%f_e_h (h * 30, true);
           ~%f_e_m (m * 6, true);
           ~%f_is_am (b, true)
@@ -555,7 +555,7 @@ let make_hours_minutes_seq
       | Some update ->
         [%client (
            let f (h, m) =
-             (let h = if h > 12 then h - 12 else h in
+             (let h = if h >= 12 then h - 12 else h in
               ~%f_e_h (h * 30, true));
              ~%f_e_m (m * 6, true)
            in