module View.Errors exposing
  ( view
  )

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import Model.Translations exposing (Translations, getMessage)

view : Translations -> List String -> Html msg
view translations errors =
  ul
    [ class "errors" ]
    ( List.map (errorView translations) errors)

errorView : Translations -> String -> Html msg
errorView translations error =
  li
    [ class "error" ]
    [ text <| getMessage translations error ]