From c8904d10b679e77bd7d4adaf80cd37bb3288275f Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Tue, 31 Mar 2020 14:22:42 +0200
Subject: [PATCH] feat(course-events): course event note text -> html

---
 models/courses.model              | 2 +-
 src/Handler/Course/Events/Form.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/models/courses.model b/models/courses.model
index aae38df9a..12a945535 100644
--- a/models/courses.model
+++ b/models/courses.model
@@ -30,7 +30,7 @@ CourseEvent
     course CourseId
     room Text
     time Occurrences
-    note Text Maybe
+    note Html Maybe
     lastChanged UTCTime default=now()
 
 CourseAppInstructionFile
diff --git a/src/Handler/Course/Events/Form.hs b/src/Handler/Course/Events/Form.hs
index b6a9fbd76..3cb291f89 100644
--- a/src/Handler/Course/Events/Form.hs
+++ b/src/Handler/Course/Events/Form.hs
@@ -15,7 +15,7 @@ data CourseEventForm = CourseEventForm
   { cefType             :: CI Text
   , cefRoom             :: Text
   , cefTime             :: Occurrences
-  , cefNote             :: Maybe Text
+  , cefNote             :: Maybe Html
   }
 
 courseEventForm :: Maybe CourseEventForm -> Form CourseEventForm
@@ -35,7 +35,7 @@ courseEventForm template = identifyForm FIDCourseEvent . renderWForm FormStandar
   cefType' <- wreq (textField & cfStrip & cfCI & addDatalist courseEventTypes) (fslI MsgCourseEventType & addPlaceholder (mr MsgCourseEventTypePlaceholder)) (cefType <$> template)
   cefRoom' <- wreq (textField & cfStrip & addDatalist courseEventRooms) (fslI MsgCourseEventRoom) (cefRoom <$> template)
   cefTime' <- aFormToWForm $ occurrencesAForm ("time" :: Text) (cefTime <$> template)
-  cefNote' <- wopt textField (fslI MsgCourseEventNote) (cefNote <$> template)
+  cefNote' <- wopt htmlField (fslI MsgCourseEventNote) (cefNote <$> template)
 
   return $ CourseEventForm
     <$> cefType'