Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-18 18:17:03 +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

18
ui/src/Data/Session.elm
View File

@@ -9,13 +9,15 @@ module Data.Session exposing
, update
)
import Json.Decode as Decode exposing (..)
import Browser.Navigation as Nav
import Json.Decode exposing (..)
import Json.Decode.Pipeline exposing (..)
import Navigation exposing (Location)
import Url exposing (Url)
type alias Session =
{ host : String
{ key : Nav.Key
, host : String
, flash : String
, routing : Bool
, persistent : Persistent
@@ -36,9 +38,9 @@ type Msg
| AddRecent String
init : Location -> Persistent -> Session
init location persistent =
Session location.host "" True persistent
init : Nav.Key -> Url -> Persistent -> Session
init key location persistent =
Session key location.host "" True persistent
update : Msg -> Session -> Session
@@ -84,10 +86,10 @@ none =
decoder : Decoder Persistent
decoder =
decode Persistent
succeed Persistent
|> optional "recentMailboxes" (list string) []
decodeValueWithDefault : Value -> Persistent
decodeValueWithDefault =
Decode.decodeValue decoder >> Result.withDefault { recentMailboxes = [] }
decodeValue decoder >> Result.withDefault { recentMailboxes = [] }