feat(hide-columns): add hider labels for tutorial list on course page

src/Handler/Course/Show.hs

@@ -113,7 +113,9 @@ getCShowR tid ssh csh = do
     | otherwise
       -> return . modal $(widgetFile "course/login-to-register") . Left . SomeRoute $ AuthR LoginR
   registrationOpen <- hasWriteAccessTo $ CourseR tid ssh csh CRegisterR
-
+  
+  MsgRenderer mr <- getMsgRenderer
+  
   let
     tutorialDBTable = DBTable{..}
       where
@@ -151,7 +153,7 @@ getCShowR tid ssh csh = do
                                      E.where_ $ participant E.^. TutorialParticipantTutorial E.==. E.val tutid
                                 in return $ E.val tutorialCapacity' E.-. numParticipants
                 return . toWidget $ tshow freeCapacity
-          , sortable Nothing mempty $ \DBRow{ dbrOutput = Entity tutId Tutorial{..} } -> sqlCell $ do
+          , sortable Nothing (mempty & cellAttrs <>~ pure ("uw-hide-columns--hider-label", mr MsgTutorialActionsHead)) $ \DBRow{ dbrOutput = Entity tutId Tutorial{..} } -> sqlCell $ do
               mayRegister <- (== Authorized) <$> evalAccessDB (CTutorialR tid ssh csh tutorialName TRegisterR) True
               isRegistered <- case mbAid of
                 Nothing  -> return False