fix benchmarks compilation error
@@ -132,10 +132,10 @@ buildView session model =
(id "page-including-top-bar" :: Views.Styles.pageIncludingTopBar)
[ Html.div
(id "top-bar-app" :: Views.Styles.topBar False)
- [ SideBar.sideBarIcon session
- , breadcrumbs session model
- , Login.view session.userState model
- ]
+ (SideBar.sideBarIcon session
+ :: breadcrumbs session model
+ ++ [ Login.view session.userState model ]
+ )
, Html.div
(id "page-below-top-bar" :: Views.Styles.pageBelowTopBar route)
[ SideBar.view session
@@ -186,7 +186,7 @@ currentJob =
>> Maybe.andThen .job
-breadcrumbs : Session -> Model -> Html Message
+breadcrumbs : Session -> Model -> List (Html Message)
breadcrumbs session model =
case ( currentJob model, model.page ) of
( Just jobId, _ ) ->
@@ -206,7 +206,7 @@ breadcrumbs session model =
}
_ ->
- Html.text ""
+ [ Html.text "" ]
body :
