mirror of
https://github.com/jhillyerd/inbucket.git
synced 2025-12-19 10:37:01 +00:00
32 lines
752 B
Elm
32 lines
752 B
Elm
module Data.MessageHeader exposing (MessageHeader, decoder)
|
|
|
|
import Data.Date exposing (date)
|
|
import Json.Decode exposing (..)
|
|
import Json.Decode.Pipeline exposing (..)
|
|
import Time exposing (Posix)
|
|
|
|
|
|
type alias MessageHeader =
|
|
{ mailbox : String
|
|
, id : String
|
|
, from : String
|
|
, to : List String
|
|
, subject : String
|
|
, date : Posix
|
|
, size : Int
|
|
, seen : Bool
|
|
}
|
|
|
|
|
|
decoder : Decoder MessageHeader
|
|
decoder =
|
|
succeed MessageHeader
|
|
|> required "mailbox" string
|
|
|> required "id" string
|
|
|> optional "from" string ""
|
|
|> required "to" (list string)
|
|
|> optional "subject" string ""
|
|
|> required "posix-millis" date
|
|
|> required "size" int
|
|
|> required "seen" bool
|