fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2019-10-09 17:18:01 +02:00
parent 3a511a8203
commit b0b92b4b26
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course/Events/Edit.hs
View File

@ -18,7 +18,7 @@ postCEvEditR tid ssh csh cID = do
formResult eventRes $ \CourseEventForm{..} -> do
now <- liftIO getCurrentTime
runDB $ do
runDB $
replace eId CourseEvent
{ courseEventCourse
, courseEventType = cefType

4
src/Handler/Course/Events/Form.hs
View File

@ -28,8 +28,8 @@ courseEventForm template = identifyForm FIDCourseEvent . renderWForm FormStandar
E.&&. lecturer E.^. LecturerUser E.==. E.val uid
return event
)
let courseEventTypes = optionsPairs $ [ (courseEventType, courseEventType) | Entity _ CourseEvent{..} <- existingEvents ]
courseEventRooms = optionsPairs $ [ (courseEventRoom, courseEventRoom) | Entity _ CourseEvent{..} <- existingEvents ]
let courseEventTypes = optionsPairs [ (courseEventType, courseEventType) | Entity _ CourseEvent{..} <- existingEvents ]
courseEventRooms = optionsPairs [ (courseEventRoom, courseEventRoom) | Entity _ CourseEvent{..} <- existingEvents ]
cefType' <- wreq (textField & cfStrip & cfCI & addDatalist courseEventTypes) (fslI MsgCourseEventType & addPlaceholder (mr MsgCourseEventTypePlaceholder)) (cefType <$> template)
cefRoom' <- wreq (textField & cfStrip & addDatalist courseEventRooms) (fslI MsgCourseEventRoom) (cefRoom <$> template)