From 771532c666a51833a62d934993985aa2f9aca098 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 20 Nov 2020 11:31:10 +0100 Subject: [PATCH] style(exams): larger occurrence description fields --- src/Handler/Exam/Form.hs | 2 +- templates/widgets/massinput/examRooms/add.hamlet | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Exam/Form.hs b/src/Handler/Exam/Form.hs index ffa654531..b179a9a43 100644 --- a/src/Handler/Exam/Form.hs +++ b/src/Handler/Exam/Form.hs @@ -231,7 +231,7 @@ examOccurrenceForm prev = wFormToAForm $ do (eofCapacityRes, eofCapacityView) <- mpreq (natFieldI MsgExamRoomCapacityNegative) (fslI MsgExamRoomCapacity & addName (nudge "capacity")) (eofCapacity <$> mPrev) (eofStartRes, eofStartView) <- mpreq utcTimeField (fslI MsgExamRoomStart & addName (nudge "start")) (eofStart <$> mPrev) (eofEndRes, eofEndView) <- mopt utcTimeField (fslI MsgExamRoomEnd & addName (nudge "end")) (eofEnd <$> mPrev) - (eofDescRes, eofDescView) <- mopt htmlFieldSmall (fslI MsgExamRoomDescription & addName (nudge "description")) (eofDescription <$> mPrev) + (eofDescRes, eofDescView) <- mopt htmlField (fslI MsgExamRoomDescription & addName (nudge "description")) (eofDescription <$> mPrev) return ( ExamOccurrenceForm <$> eofIdRes diff --git a/templates/widgets/massinput/examRooms/add.hamlet b/templates/widgets/massinput/examRooms/add.hamlet index 31c175949..e48c07407 100644 --- a/templates/widgets/massinput/examRooms/add.hamlet +++ b/templates/widgets/massinput/examRooms/add.hamlet @@ -1,4 +1,4 @@ $newline never ^{formWidget} - + ^{fvWidget submitView}