1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-18 18:17:03 +00:00

ui: Easy renames and refactors

This commit is contained in:
James Hillyerd
2018-11-18 18:52:14 -08:00
parent 0ed0cd2d64
commit 5be2b57a12
11 changed files with 150 additions and 164 deletions

View File

@@ -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

View File

@@ -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)

View File

@@ -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)

View File

@@ -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))