diff --git a/modules/webapp/src/main/elm/App/View.elm b/modules/webapp/src/main/elm/App/View.elm index 2223a342..fd14c87a 100644 --- a/modules/webapp/src/main/elm/App/View.elm +++ b/modules/webapp/src/main/elm/App/View.elm @@ -178,16 +178,7 @@ viewLogin model = viewHome : Model -> Html Msg viewHome model = - let - mid = - case model.page of - HomePage -> - Util.Maybe.fromString model.itemDetailModel.detail.item.id - - _ -> - Nothing - in - Html.map HomeMsg (Page.Home.View.view mid model.flags model.uiSettings model.homeModel) + Html.map HomeMsg (Page.Home.View.view model.flags model.uiSettings model.homeModel) menuEntry : Model -> Page -> List (Html Msg) -> Html Msg diff --git a/modules/webapp/src/main/elm/Page/Home/View.elm b/modules/webapp/src/main/elm/Page/Home/View.elm index 32653c43..ce4d8969 100644 --- a/modules/webapp/src/main/elm/Page/Home/View.elm +++ b/modules/webapp/src/main/elm/Page/Home/View.elm @@ -14,8 +14,8 @@ import Page.Home.Data exposing (..) import Util.Html -view : Maybe String -> Flags -> UiSettings -> Model -> Html Msg -view current flags settings model = +view : Flags -> UiSettings -> Model -> Html Msg +view flags settings model = div [ class "home-page ui padded grid" ] [ div [ classList