merged

shell.nix

@@ -1,6 +1,7 @@
 { nixpkgs ? import <nixpkgs> }:
 
 let
+  inherit (nixpkgs {}) pkgs;
   haskellPackages = import ./stackage.nix { inherit nixpkgs; };
 
   drv = haskellPackages.callPackage ./uniworx.nix {};

src/Handler/Corrections.hs

@@ -1218,8 +1218,8 @@ assignHandler tid ssh csh cid assignSids = do
       getCorrector (Just uid)
         | Just (User{..},loadMap) <- Map.lookup uid correctorMap
         = (nameEmailWidget userEmail userDisplayName userSurname, loadMap, userDisplayName)
-        -- | Just (User{..} ) <- Map.lookup uid lecturerNames
-        -- = (nameEmailWidget userEmail userDisplayName userSurname, mempty)  -- lecturers may also correct in rare cases
+        --  | Just (User{..} ) <- Map.lookup uid lecturerNames
+        --  = (nameEmailWidget userEmail userDisplayName userSurname, mempty)  -- lecturers may also correct in rare cases
       getCorrector _ = ([whamlet|_{MsgNoCorrectorAssigned}|], mempty, mempty)
       -- avoid nestes hamlet $maybe with duplicated $nothing
       getCorrSheetStatus :: Maybe UserId -> SheetName -> Maybe CorrectionInfo