From aa7f451a81a5e37f12ef5d0a43d8d702fdfb9a8a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Mon, 20 May 2019 15:22:41 +0200
Subject: [PATCH] Adjust JSON-Encoding of UploadMode to avoid migration

---
 src/Model/Types/Sheet.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Model/Types/Sheet.hs b/src/Model/Types/Sheet.hs
index 6ec4ae4f0..426e375c5 100644
--- a/src/Model/Types/Sheet.hs
+++ b/src/Model/Types/Sheet.hs
@@ -250,7 +250,9 @@ defaultExtensionRestriction :: Maybe (NonNull (Set Extension))
 defaultExtensionRestriction = fromNullable $ Set.fromList ["txt", "pdf"]
 
 deriveJSON defaultOptions
-  { constructorTagModifier = camelToPathPiece
+  { constructorTagModifier = \c -> if
+      | c == "UploadAny" -> "upload"
+      | otherwise        -> camelToPathPiece c
   , fieldLabelModifier = camelToPathPiece
   , sumEncoding = TaggedObject "mode" "settings"
   , omitNothingFields = True