ui: Parse POSIX millisecond date stamps

ui/src/Data/Date.elm

@@ -4,8 +4,8 @@ import Json.Decode as Decode exposing (..)
 import Time exposing (Posix)
 
 
-{-| Decode a POSIX milliseconds timestamp. Currently faked until backend API is updated.
+{-| Decode a POSIX milliseconds timestamp.
 -}
 date : Decoder Posix
 date =
-    succeed (Time.millisToPosix 0)
+    int |> andThen (Time.millisToPosix >> succeed)

ui/src/Data/Message.elm

@@ -36,7 +36,7 @@ decoder =
         |> optional "from" string ""
         |> required "to" (list string)
         |> optional "subject" string ""
-        |> required "date" date
+        |> required "posix-millis" date
         |> required "size" int
         |> required "seen" bool
         |> required "text" string

ui/src/Data/MessageHeader.elm

@@ -26,6 +26,6 @@ decoder =
         |> optional "from" string ""
         |> required "to" (list string)
         |> optional "subject" string ""
-        |> required "date" date
+        |> required "posix-millis" date
         |> required "size" int
         |> required "seen" bool