From 544f5af78dd0f3cd2913eb1985ec0710da62e4d7 Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Mon, 12 Apr 2021 16:53:09 +0200 Subject: [PATCH] chore: reset Handler.Course.Show to master state remove two new lines leftover from previous edited state --- src/Handler/Course/Show.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Handler/Course/Show.hs b/src/Handler/Course/Show.hs index fe15da01a..abad8669c 100644 --- a/src/Handler/Course/Show.hs +++ b/src/Handler/Course/Show.hs @@ -133,7 +133,6 @@ getCShowR tid ssh csh = do return $ material E.^. MaterialName mayViewAnyMaterial <- lift . anyM materials $ \(E.Value mnm) -> hasReadAccessTo $ CMaterialR tid ssh csh mnm MShowR - return (cid,course,courseVisible,schoolName,participants,registration,lecturers,assistants,correctors,tutors,mAllocation,mApplicationTemplate,mApplication,news,events,submissionGroup,hasAllocationRegistrationOpen,mayReRegister, (mayViewSheets, mayViewAnySheet), (mayViewMaterials, mayViewAnyMaterial)) let mDereg' = maybe id min (allocationOverrideDeregister =<< mAllocation) <$> courseDeregisterUntil course @@ -260,7 +259,6 @@ getCShowR tid ssh csh = do mayCreateEvents <- hasWriteAccessTo $ CourseR tid ssh csh CEventsNewR mayEdit <- hasWriteAccessTo $ CourseR tid ssh csh CEditR - let heading = [whamlet| $newline never ^{courseName course}