diff --git a/shell.nix b/shell.nix index 94ef0ba00..b942f99b9 100644 --- a/shell.nix +++ b/shell.nix @@ -1,6 +1,7 @@ { nixpkgs ? import }: let + inherit (nixpkgs {}) pkgs; haskellPackages = import ./stackage.nix { inherit nixpkgs; }; drv = haskellPackages.callPackage ./uniworx.nix {}; diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index a7553da01..619772148 100644 --- a/src/Handler/Corrections.hs +++ b/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