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)