view.elm

view : Model -> Html Msg
view model =
    div []
        [ (case model.weather of
            Just value ->
                case List.head value.value of
                    Just first ->
                        (case Date.fromString (toString (first.date)) of
                            Result.Ok date ->
                                formatDate date

                            Result.Err _ ->
                                ""
                        )

                    Nothing ->
                        ""

            Nothing ->
                ""
          )
            |> text
        ]