fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: fix collision with keyword "none"

Browse Source
This commit is contained in:
Gregor Kleen 2019-08-07 09:00:40 +02:00
parent c9e975e31e
commit 203dbd3705
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Model/Types/Sheet.hs
View File

@ -224,7 +224,11 @@ data UploadModeDescr = UploadModeNone
instance Universe UploadModeDescr
instance Finite UploadModeDescr
nullaryPathPiece ''UploadModeDescr $ camelToPathPiece' 2
finitePathPiece ''UploadModeDescr
[ "no-upload"
, "any"
, "specific"
]
classifyUploadMode :: UploadMode -> UploadModeDescr
classifyUploadMode NoUpload = UploadModeNone