From 203dbd3705717660cb2bef3a735eb10ce0085155 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 7 Aug 2019 09:00:40 +0200 Subject: [PATCH] fix: fix collision with keyword "none" --- src/Model/Types/Sheet.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Model/Types/Sheet.hs b/src/Model/Types/Sheet.hs index 2f6e43200..793ddd310 100644 --- a/src/Model/Types/Sheet.hs +++ b/src/Model/Types/Sheet.hs @@ -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