[NO-ISSUE] Add documentation link to navbar

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 * Add `exe:` search modifier to look up packages by executable name ([#529](/~https://github.com/flora-pm/flora-server/pull/529))
 * Add a link to the search documentation under the main search bar ([#532](/~https://github.com/flora-pm/flora-server/pull/532))
+* Add a link to the general documentation in the navbar ([#537](/~https://github.com/flora-pm/flora-server/pull/537))
 
 ## 1.0.16 -- 2024-02-26
 

src/web/FloraWeb/Components/Navbar.hs

@@ -24,6 +24,7 @@ navbar = do
       div_ [class_ "navbar-right"] $ do
         navBarLink "navbar-menu-button" "/" "Search on Flora" False
         navBarLink' "/about" "About" aboutNav
+        a_ [href_ "/documentation", class_ "navbar-link", target_ "_blank"] (text "Documentation")
         navBarLink' "/categories" "Categories" packagesNav
         navBarLink' "/packages" "Packages" packagesNav
         userMenu
@@ -88,10 +89,9 @@ navBarLink
   -- ^ is the element active
   -> FloraHTML
 navBarLink additionalClasses href label isActive' =
-  let baseClasses = "navbar-link "
-   in a_
-        [href_ href, class_ (baseClasses <> " " <> additionalClasses <> " " <> isActive isActive')]
-        (text label)
+  a_
+    [href_ href, class_ ("navbar-link " <> additionalClasses <> " " <> isActive isActive')]
+    (text label)
 
 navBarLink' :: Text -> Text -> Bool -> FloraHTML
 navBarLink' = navBarLink ""