featuredComicsView :: [FeaturedComic] -> Html
featuredComicsView featuredComics =
  case featuredComics of
    [] -> mempty
    xs -> do
      H.h2 "Featured comics"
      H.div ! A.class_ "container row" $
        mapM_ featuredComicsItemView xs
featuredComicsView :: [FeaturedComic] -> Html
featuredComicsView featuredComics =
  case featuredComics of
    [] -> mempty
    xs -> do
      H.h2 "Featured comics"
      H.div ! A.class_ "container row" $
        mapM_ featuredComicsItemView xs
featuredComicsView featuredComics =
  case featuredComics of
    [] -> mempty
    xs -> do
      H.h2 "Featured comics"
      H.div ! A.class_ "container row" $
        mapM_ featuredComicsItemView xs