19 lines
518 B
Elm
19 lines
518 B
Elm
module Update.Error exposing (addErrorNotification, cleanErrors)
|
|
|
|
import Time exposing (Time)
|
|
import Types exposing (..)
|
|
|
|
|
|
addErrorNotification : String -> Model -> List ErrorNotification
|
|
addErrorNotification message model =
|
|
let
|
|
error =
|
|
{ message = message, time = model.currentTime }
|
|
in
|
|
error :: model.errors
|
|
|
|
|
|
cleanErrors : Time -> List ErrorNotification -> List ErrorNotification
|
|
cleanErrors currentTime errors =
|
|
List.filter (\{ time } -> currentTime - time <= 10000) errors
|