fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(schedule): fix options PathPiece instances

Browse Source
This commit is contained in:
Sarah Vaupel 2020-10-24 20:02:54 +02:00
parent db7238da5e
commit 57c1cc768c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/Schedule/Types/ScheduleOptions.hs
View File

@ -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]