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]