Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-20 19:17:01 +00:00
Code Issues Releases Wiki Activity

ui: Get UI to compile with Elm 0.19

Browse Source
This commit is contained in:
James Hillyerd
2018-11-13 22:03:36 -08:00
parent 5ccdece541
commit fe20854173
15 changed files with 210 additions and 180 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ui/src/Data/Message.elm
View File

@@ -1,9 +1,9 @@
module Data.Message exposing (Attachment, Message, attachmentDecoder, decoder)
import Data.Date exposing (date)
import Date exposing (Date)
import Json.Decode as Decode exposing (..)
import Json.Decode.Pipeline exposing (..)
import Time exposing (Posix)
type alias Message =
@@ -12,7 +12,7 @@ type alias Message =
, from : String
, to : List String
, subject : String
, date : Date
, date : Posix
, size : Int
, seen : Bool
, text : String
@@ -30,7 +30,7 @@ type alias Attachment =
decoder : Decoder Message
decoder =
decode Message
succeed Message
|> required "mailbox" string
|> required "id" string
|> optional "from" string ""
@@ -46,7 +46,7 @@ decoder =
attachmentDecoder : Decoder Attachment
attachmentDecoder =
decode Attachment
succeed Attachment
|> required "id" string
|> required "filename" string
|> required "content-type" string