MapWithDefault.elm

view : Model -> Html msg
view model =
  renderItemsWithDefault renderList emptyState model.strings

renderList : List String -> Html msg
renderList strings =
  ul [] <| List.map (\s -> li [] [ text s ] ) strings

emptyState : Html msg
emptyState =
  p [] [ text "No results" ]

renderItemsWithDefault : (List a -> Html msg) -> Html msg -> List a -> Html msg
renderItemsWithDefault f default list =
  case list of
    [] -> default
    list -> f list