From 57c1cc768c09d16b4a242291f9accce18e3aac6b Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Sat, 24 Oct 2020 20:02:54 +0200
Subject: [PATCH] fix(schedule): fix options PathPiece instances

---
 src/Handler/Utils/Schedule/Types/ScheduleOptions.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Utils/Schedule/Types/ScheduleOptions.hs b/src/Handler/Utils/Schedule/Types/ScheduleOptions.hs
index 3bef17dbc..aef97abfa 100644
--- a/src/Handler/Utils/Schedule/Types/ScheduleOptions.hs
+++ b/src/Handler/Utils/Schedule/Types/ScheduleOptions.hs
@@ -34,7 +34,7 @@ data ScheduleOptionsAction = ScheduleSetView
                            | ScheduleSetDefault
   deriving (Eq, Ord, Show, Read, Generic, Typeable)
 
-derivePathPiece ''ScheduleOptionsAction (camelToPathPiece' 1) "_"
+derivePathPiece ''ScheduleOptionsAction (camelToPathPiece' 1) "--"
 
 
 data ScheduleOptions = ScheduleOptions
@@ -44,7 +44,7 @@ data ScheduleOptions = ScheduleOptions
                        }
   deriving (Eq, Ord, Show, Read, Generic, Typeable)
 
-derivePathPiece ''ScheduleOptions (camelToPathPiece' 1) "__"
+derivePathPiece ''ScheduleOptions (camelToPathPiece' 1) "---"
 
 instance Button UniWorX ScheduleOptions where
   btnClasses = const [BCIsButton]