From 8e5bebc96fb5639cda30b326be92cea6b3f52d70 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 24 Apr 2019 14:59:31 +0200
Subject: [PATCH] Workaround library bug disallowing 'none' as PathPiece

Fixes #336
---
 src/Model/Types.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/Model/Types.hs b/src/Model/Types.hs
index 527c748f1..c690483a2 100644
--- a/src/Model/Types.hs
+++ b/src/Model/Types.hs
@@ -342,7 +342,15 @@ data SubmissionModeDescr = SubmissionModeNone
 instance Universe SubmissionModeDescr
 instance Finite SubmissionModeDescr
 
-nullaryPathPiece ''SubmissionModeDescr $ camelToPathPiece' 2
+instance PathPiece SubmissionModeDescr where
+  toPathPiece = (Map.fromList (zip universeF verbs) !)
+    where
+      verbs = [ "no-submissions"
+              , "correctors"
+              , "users"
+              , "correctors+users"
+              ]
+  fromPathPiece = finiteFromPathPiece
 
 classifySubmissionMode :: SubmissionMode -> SubmissionModeDescr
 classifySubmissionMode (SubmissionMode False Nothing ) = SubmissionModeNone