From 1bb2e571fbe3d676ab5ea41eb5d245814389d537 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Wed, 23 Mar 2022 15:40:22 +0100
Subject: [PATCH] chore(lms): add primary nav link to lms

---
 src/Foundation/Navigation.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs
index 19ddc3abf..7be1a4763 100644
--- a/src/Foundation/Navigation.hs
+++ b/src/Foundation/Navigation.hs
@@ -700,6 +700,18 @@ defaultLinks = fmap catMaybes . mapM runMaybeT $ -- Define the menu items of the
         , navForceActive = False
         }
       }
+  , return NavHeader
+      { navHeaderRole = NavHeaderPrimary
+      , navIcon       = IconMenuLms
+      , navLink       = NavLink
+        { navLabel       = MsgMenuLms
+        , navRoute       = LmsAllR
+        , navAccess'     = NavAccessTrue
+        , navType        = NavTypeLink { navModal = False }
+        , navQuick'      = mempty
+        , navForceActive = False
+        }
+      }
   , return NavHeaderContainer
       { navHeaderRole = NavHeaderPrimary
       , navLabel      = SomeMessage MsgMenuAdminHeading