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)