From 3515500685a32a9241ee0f0addb81402c1024ca1 Mon Sep 17 00:00:00 2001 From: SJost Date: Mon, 20 Aug 2018 09:44:49 +0200 Subject: [PATCH] minor comments --- src/Handler/Utils/Form.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs index f405a6dd7..afb855d46 100644 --- a/src/Handler/Utils/Form.hs +++ b/src/Handler/Utils/Form.hs @@ -218,7 +218,8 @@ pointsField = checkBool (>= 0) MsgPointsNotPositive Field{..} sci <- maybe (Left $ MsgInvalidNumber t) Right (readMaybe $ unpack t :: Maybe Scientific) return . fromRational $ round (sci * 100) % 100 ---termField: see Utils.Term +--termField: see Utils.Term +--schoolField: see Handler.Course zipFileField :: Bool -- ^ Unpack zips? -> Field Handler (Source Handler File)