fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Workaround library bug disallowing 'none' as PathPiece

Browse Source 
Fixes #336
This commit is contained in:
Gregor Kleen 2019-04-24 14:59:31 +02:00
parent 2fde26b68e
commit 8e5bebc96f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Model/Types.hs
View File

@ -342,7 +342,15 @@ data SubmissionModeDescr = SubmissionModeNone
instance Universe SubmissionModeDescr instance Universe SubmissionModeDescr
instance Finite 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 -> SubmissionModeDescr
classifySubmissionMode (SubmissionMode False Nothing ) = SubmissionModeNone classifySubmissionMode (SubmissionMode False Nothing ) = SubmissionModeNone