ui: Easy renames and refactors

ui/src/Data/Date.elm

@@ -1,6 +1,6 @@
 module Data.Date exposing (date)
 
-import Json.Decode as Decode exposing (..)
+import Json.Decode exposing (..)
 import Time exposing (Posix)
 
 
@@ -8,4 +8,4 @@ import Time exposing (Posix)
 -}
 date : Decoder Posix
 date =
-    int |> andThen (Time.millisToPosix >> succeed)
+    int |> map Time.millisToPosix

ui/src/Data/Message.elm

@@ -1,7 +1,7 @@
 module Data.Message exposing (Attachment, Message, attachmentDecoder, decoder)
 
 import Data.Date exposing (date)
-import Json.Decode as Decode exposing (..)
+import Json.Decode exposing (..)
 import Json.Decode.Pipeline exposing (..)
 import Time exposing (Posix)
 

ui/src/Data/MessageHeader.elm

@@ -1,7 +1,7 @@
 module Data.MessageHeader exposing (MessageHeader, decoder)
 
 import Data.Date exposing (date)
-import Json.Decode as Decode exposing (..)
+import Json.Decode exposing (..)
 import Json.Decode.Pipeline exposing (..)
 import Time exposing (Posix)
 

ui/src/Data/Metrics.elm

@@ -59,4 +59,6 @@ decoder =
 -}
 decodeIntList : Decoder (List Int)
 decodeIntList =
-    map (String.split "," >> List.map (String.toInt >> Maybe.withDefault 0)) string
+    string
+        |> map (String.split ",")
+        |> map (List.map (String.toInt >> Maybe.withDefault 0))