Workaround library bug disallowing 'none' as PathPiece

Fixes #336
2019-04-24 14:59:31 +02:00 · 2019-04-24 14:59:31 +02:00 · 8e5bebc96f
commit 8e5bebc96f
parent 2fde26b68e
1 changed files with 9 additions and 1 deletions
--- 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