anchor.diff:                  yield! navTreeFromPaths navCfg.TopLevelNav.DocsRoot navCfg.TopLevelNav.DocsPages |> sortNavTree |> generateNavMenus navCfg.SiteBaseUrl
               ]
               ul [ Class "navbar-nav"] [
  -                navItem (string navCfg.GitHubRepoUrl) [
  +                navItemIconOnly (string navCfg.GitHubRepoUrl) "GitHub Repository" [
                       i [ Class "fab fa-github fa-lg fa-fw text-light"] []
                   ]
               ]
  
positive.code: let navItemText text link =
          navItem link [ normalizeStr text ]
  
  
  let dropDownNavMenu text items =
              li [ Class "nav-item dropdown" ][
  
negative.code: 
  let generateNav (navCfg : NavConfig) =
      nav [
          Class "navbar navbar-expand-md sticky-top navbar-dark bg-dark"
      ] [
          a [
              Class "navbar-brand"
              Href (navCfg.SiteBaseUrl |> Uri.simpleCombine "/index.html")
          ] [
              i [ Class "fa fa-car text-white mr-2"] []
              str (navCfg.ProjectName)
          ]
          button [
              Class "navbar-toggler"
              Type "button"
  