feat(homepage): add prime action new course to homepage

src/Foundation.hs

@@ -834,7 +834,7 @@ tagAccessPredicate AuthAllocationTime = APDB $ \mAuthId route _ -> case route of
           || NTop allocationRegisterByStaffFrom >= NTop (Just now)
           -> unauthorizedI MsgUnauthorizedAllocatedCourseDelete
       _other -> return Authorized
-  
+
   r -> $unsupportedAuthPredicate AuthAllocationTime r
   where
     mbAllocation tid ssh csh = $cachedHereBinary (tid, ssh, csh) . runMaybeT $ do
@@ -1805,6 +1805,14 @@ pageActions (HomeR) =
       , menuItemModal = False
       , menuItemAccessCallback' = return True
       }
+  , MenuItem
+      { menuItemType  = PageActionPrime
+      , menuItemLabel = MsgMenuCourseNew
+      , menuItemIcon  = Just "book"
+      , menuItemRoute = SomeRoute CourseNewR
+      , menuItemModal = False
+      , menuItemAccessCallback' = return True
+      }
   ,  MenuItem
       { menuItemType  = PageActionPrime
       , menuItemLabel = MsgAdminHeading
@@ -2968,7 +2976,7 @@ instance YesodAuth UniWorX where
               acceptExisting
           | otherwise
           = return res
-          
+
         excHandlers =
           [ C.Handler $ \case
               CampusUserNoResult -> do