run :: forall t m.
  ( SupportsServantReflex t m
  , DomBuilder t m
  , DomBuilderSpace m ~ GhcjsDomSpace
  , MonadFix m
  , PostBuild t m
  , MonadHold t m
  , MonadWidget t m
  ) => m ()
run = do
  divClass "ui grid" $ return ()

  divClass "ui divider" $ return ()

  footer
run :: forall t m.
  ( SupportsServantReflex t m
  , DomBuilder t m
  , DomBuilderSpace m ~ GhcjsDomSpace
  , MonadFix m
  , PostBuild t m
  , MonadHold t m
  , MonadWidget t m
  ) => m ()
run = do
  divClass "ui grid" $ return ()

  divClass "ui divider" $ return ()

  footer
run = do
  divClass "ui grid" $ return ()

  divClass "ui divider" $ return ()

  footer