Pages.elm

landing : Model -> Html Msg
landing model =
    RemoteData.map userHeader model.user
        |> RemoteData.withDefault authHeader
        |> flip layout (landingBody model.posts)

readPost : String -> Model -> Html Msg
readPost id model =
    case List.head <| List.filter (\post -> post.id == id) model.posts of
        Just post ->
            RemoteData.map userHeader model.user
                |> RemoteData.withDefault authHeader
                |> flip layout (readPostBody post)
        Nothing ->
            error "404 Not Found"