------------------------------------------------------------------------------
overviewLayout :: MonadWidget t m
  => Behavior t ProfileState -> m (Event t Route, Event t ProfileState)
overviewLayout bhRouteEvent = do
  evNavClick <- navigation ProfileRoute

  divClass "ui hidden divider" $ return ()

  divClass "stackable ui grid" $ do
    divClass "four wide column" $ return ()
    divClass "eight wide column" $ do
      overviewWidget bhRouteEvent
    divClass "four wide column" $ return ()
    return ()

  return (evNavClick, (\_ -> ProfileState ()) <$> never)

------------------------------------------------------------------------------
overviewLayout :: MonadWidget t m
  => Behavior t ProfileState -> m (Event t Route, Event t ProfileState)
overviewLayout bhRouteEvent = do
  evNavClick <- navigation ProfileRoute

  divClass "ui hidden divider" $ return ()

  divClass "stackable ui grid" $ do
    divClass "four wide column" $ return ()
    divClass "eight wide column" $ do
      overviewWidget bhRouteEvent
    divClass "four wide column" $ return ()
    return ()

  return (evNavClick, (\_ -> ProfileState ()) <$> never)

------------------------------------------------------------------------------
overviewLayout bhRouteEvent = do
  evNavClick <- navigation ProfileRoute

  divClass "ui hidden divider" $ return ()

  divClass "stackable ui grid" $ do
    divClass "four wide column" $ return ()
    divClass "eight wide column" $ do
      overviewWidget bhRouteEvent
    divClass "four wide column" $ return ()
    return ()

  return (evNavClick, (\_ -> ProfileState ()) <$> never)

------------------------------------------------------------------------------