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:
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
|
||||
@@ -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)
|
||||
|
||||
|
||||
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user