27 lines
893 B
Haskell
27 lines
893 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Handler.Sheet
|
|
( module Handler.Sheet
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Handler.Utils
|
|
|
|
|
|
import Handler.Sheet.CorrectorInvite as Handler.Sheet (getSCorrInviteR, postSCorrInviteR)
|
|
import Handler.Sheet.Delete as Handler.Sheet
|
|
import Handler.Sheet.Edit as Handler.Sheet (getSEditR, postSEditR)
|
|
import Handler.Sheet.List as Handler.Sheet
|
|
import Handler.Sheet.Pseudonym as Handler.Sheet (getSPseudonymR, postSPseudonymR)
|
|
import Handler.Sheet.Current as Handler.Sheet
|
|
import Handler.Sheet.Download as Handler.Sheet
|
|
import Handler.Sheet.New as Handler.Sheet
|
|
import Handler.Sheet.Show as Handler.Sheet
|
|
|
|
|
|
getSIsCorrR :: TermId -> SchoolId -> CourseShorthand -> SheetName -> Handler Html
|
|
-- NOTE: The route SIsCorrR is only used to verfify corrector access rights to given sheet!
|
|
getSIsCorrR _ _ _ shn =
|
|
defaultLayout . i18n $ MsgHaveCorrectorAccess shn
|