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 ]