From b0b92b4b26310b0a41b45d6928fe469d47e5df5d Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 9 Oct 2019 17:18:01 +0200 Subject: [PATCH] fix: hlint --- src/Handler/Course/Events/Edit.hs | 2 +- src/Handler/Course/Events/Form.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Handler/Course/Events/Edit.hs b/src/Handler/Course/Events/Edit.hs index aed9e2e41..e762b3ae0 100644 --- a/src/Handler/Course/Events/Edit.hs +++ b/src/Handler/Course/Events/Edit.hs @@ -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 diff --git a/src/Handler/Course/Events/Form.hs b/src/Handler/Course/Events/Form.hs index 672e30a76..bf9d99ca8 100644 --- a/src/Handler/Course/Events/Form.hs +++ b/src/Handler/Course/Events/Form.hs @@ -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)