Add zero-padding to the output human time

Fixes and closes evancz#130
olpeh · Jan 11, 2019 · 5c8b2e1 · 5c8b2e1
1 parent 4803e86
commit 5c8b2e1
Showing 1 changed file with 11 additions and 6 deletions.
diff --git a/examples/08-time.elm b/examples/08-time.elm
@@ -73,9 +73,14 @@ subscriptions model =
 
 view : Model -> Html Msg
 view model =
-  let
-    hour   = String.fromInt (Time.toHour   model.zone model.time)
-    minute = String.fromInt (Time.toMinute model.zone model.time)
-    second = String.fromInt (Time.toSecond model.zone model.time)
-  in
-  h1 [] [ text (hour ++ ":" ++ minute ++ ":" ++ second) ]
+    let
+        hour =
+            String.padLeft 2 '0' (String.fromInt (Time.toHour model.zone model.time))
+
+        minute =
+            String.padLeft 2 '0' (String.fromInt (Time.toMinute model.zone model.time))
+
+        second =
+            String.padLeft 2 '0' (String.fromInt (Time.toSecond model.zone model.time))
+    in
+    h1 [] [ text (hour ++ ":" ++ minute ++ ":" ++ second) ]