21 lines
561 B
Haskell
21 lines
561 B
Haskell
module Handler.Course.Delete
|
|
( getCDeleteR, postCDeleteR
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Handler.Utils.Course
|
|
import Handler.Utils.Delete
|
|
|
|
import qualified Data.Set as Set
|
|
|
|
|
|
getCDeleteR, postCDeleteR :: TermId -> SchoolId -> CourseShorthand -> Handler Html
|
|
getCDeleteR = postCDeleteR
|
|
postCDeleteR tid ssh csh = do
|
|
Entity cId _ <- runDB . getBy404 $ TermSchoolCourseShort tid ssh csh
|
|
deleteR $ (courseDeleteRoute $ Set.singleton cId)
|
|
{ drAbort = SomeRoute $ CourseR tid ssh csh CShowR
|
|
, drSuccess = SomeRoute $ TermSchoolCourseListR tid ssh
|
|
}
|