Show multiple warnings in documentation layout

src/frontend/Main.elm

@@ -70,7 +70,7 @@ view model =
       Skeleton.view never
         { title = "Not Found"
         , header = []
-        , warning = Skeleton.NoProblems
+        , warnings = [Skeleton.NoProblems]
         , attrs = Problem.styles
         , kids = Problem.notFound
         }

src/frontend/Page/Diff.elm

@@ -92,7 +92,7 @@ view model =
       [ Skeleton.authorSegment model.author
       , Skeleton.projectSegment model.author model.project
       ]
-  , warning = Skeleton.NoProblems
+  , warnings = [Skeleton.NoProblems]
   , attrs = [ class "pkg-overview" ]
   , kids =
       case model.releases of

src/frontend/Page/Docs.elm

@@ -231,7 +231,7 @@ view : Model -> Skeleton.Details Msg
 view model =
   { title = toTitle model
   , header = toHeader model
-  , warning = toWarning model
+  , warnings = toWarnings model
   , attrs = []
   , kids =
       [ viewContent model
@@ -296,18 +296,18 @@ toHeader model =
 -- WARNING
 
 
-toWarning : Model -> Skeleton.Warning
-toWarning model =
+toWarnings : Model -> List Skeleton.Warning
+toWarnings model =
   case Dict.get (model.author ++ "/" ++ model.project) renames of
     Just (author, project) ->
-      Skeleton.WarnMoved author project
+      [Skeleton.WarnMoved author project]
 
     Nothing ->
       case model.outline of
-        Failure -> warnIfNewer model
-        Loading -> warnIfNewer model
+        Failure -> [warnIfNewer model]
+        Loading -> [warnIfNewer model]
         Success outline ->
-          if isOld outline.elm then Skeleton.WarnOld else warnIfNewer model
+          if isOld outline.elm then [Skeleton.WarnOld, warnIfNewer model] else [warnIfNewer model]
 
 
 warnIfNewer : Model -> Skeleton.Warning

src/frontend/Page/Help.elm

@@ -67,7 +67,7 @@ view : Model -> Skeleton.Details msg
 view model =
   { title = model.title
   , header = []
-  , warning = Skeleton.NoProblems
+  , warnings = [Skeleton.NoProblems]
   , attrs = []
   , kids = [ viewContent model.title model.content ]
   }

src/frontend/Page/Search.elm

@@ -96,7 +96,7 @@ view : Model -> Skeleton.Details Msg
 view model =
   { title = "Elm Packages"
   , header = []
-  , warning = Skeleton.NoProblems
+  , warnings = [Skeleton.NoProblems]
   , attrs = []
   , kids =
       [ lazy2 viewSearch model.query model.entries

src/frontend/Skeleton.elm

@@ -26,7 +26,7 @@ import Utils.Logo as Logo
 type alias Details msg =
   { title : String
   , header : List Segment
-  , warning : Warning
+  , warnings : List Warning
   , attrs : List (Attribute msg)
   , kids : List (Html msg)
   }
@@ -83,7 +83,7 @@ view toMsg details =
       details.title
   , body =
       [ viewHeader details.header
-      , lazy viewWarning details.warning
+      , lazy viewWarnings details.warnings
       , Html.map toMsg <|
           div (class "center" :: style "flex" "1" :: details.attrs) details.kids
       , viewFooter
@@ -126,35 +126,38 @@ viewSegment segment =
 
 -- VIEW WARNING
 
+viewWarnings : List Warning -> Html msg
+viewWarnings warnings =
+  div [ class "header-underbar" ] <|
+    List.map viewWarning warnings
 
 viewWarning : Warning -> Html msg
 viewWarning warning =
-  div [ class "header-underbar" ] <|
-    case warning of
-      NoProblems ->
-        []
+  case warning of
+    NoProblems ->
+      Html.text ""
 
-      WarnOld ->
-        [ p [ class "version-warning" ]
-            [ text "NOTE — this package is not compatible with Elm 0.19.1"
-            ]
+    WarnOld ->
+      p [ class "version-warning" ]
+        [ text "NOTE — this package is not compatible with Elm 0.19.1"
         ]
+
 
-      WarnMoved author project ->
-        [ p [ class "version-warning" ]
-            [ text "NOTE — this package moved to "
-            , a [ href (Href.toVersion author project Nothing) ]
-                [ text (author ++ "/" ++ project)
-                ]
+    WarnMoved author project ->
+      p [ class "version-warning" ]
+        [ text "NOTE — this package moved to "
+        , a [ href (Href.toVersion author project Nothing) ]
+            [ text (author ++ "/" ++ project)
             ]
         ]
+
 
-      WarnNewerVersion url version ->
-        [ p [ class "version-warning" ]
-            [ text "NOTE — the latest version is "
-            , a [ href url ] [ text (V.toString version) ]
-            ]
+    WarnNewerVersion url version ->
+      p [ class "version-warning" ]
+        [ text "NOTE — the latest version is "
+        , a [ href url ] [ text (V.toString version) ]
         ]
+