From 7e9e066e550c6cf33d8c55973cff3b4a55fee781 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Tue, 3 Apr 2018 16:58:05 +0200
Subject: [PATCH] Quickfix sheet grading edit

---
 src/Handler/Utils/Form.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index f28154e55..58bbb4428 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -301,6 +301,8 @@ sheetTypeAFormReq d Nothing =
 sheetTypeAFormReq d (Just (Normal p)) =
   -- TODO, offer options to choose between Normal/Bonus/Pass
   (Normal . toPoints) <$> areq (natField "Punkte") d (Just $ fromPoints p)
+sheetTypeAFormReq d (Just (NotGraded)) = pure NotGraded
+
 
 sheetGroupAFormReq :: FieldSettings UniWorX -> Maybe SheetGroup -> AForm Handler SheetGroup
 sheetGroupAFormReq d (Just (Arbitrary n)) | n >= 1 =