28 lines
1.1 KiB
Haskell
28 lines
1.1 KiB
Haskell
module Handler.Utils.Course where
|
|
|
|
import Import
|
|
import Handler.Utils.Delete
|
|
|
|
import qualified Database.Esqueleto as E
|
|
|
|
|
|
courseDeleteRoute :: Set CourseId -> DeleteRoute Course
|
|
courseDeleteRoute drRecords = DeleteRoute
|
|
{ drRecords
|
|
, drGetInfo = \(course `E.InnerJoin` school) -> do
|
|
E.on $ course E.^. CourseSchool E.==. school E.^. SchoolId
|
|
E.orderBy [E.asc $ course E.^. CourseName]
|
|
return (course E.^. CourseName, school E.^. SchoolShorthand, school E.^. SchoolName, course E.^. CourseTerm)
|
|
, drUnjoin = \(course `E.InnerJoin` _) -> course
|
|
, drRenderRecord = \(E.Value cName, _, E.Value sName, E.Value tid') ->
|
|
return [whamlet|
|
|
#{cName} (_{ShortTermIdentifier (unTermKey tid')}, #{sName})
|
|
|]
|
|
, drRecordConfirmString = \(E.Value cName, E.Value ssh', _, E.Value tid') ->
|
|
return [st|#{termToText (unTermKey tid')}/#{ssh'}/#{cName}|]
|
|
, drCaption = SomeMessage MsgCourseDeleteQuestion
|
|
, drSuccessMessage = SomeMessage MsgCourseDeleted
|
|
, drAbort = error "drAbort undefined"
|
|
, drSuccess = error "drSuccess undefined"
|
|
}
|