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

chore(tutorial): change tutorial template separator to single underscore

Browse Source
This commit is contained in:
Steffen Jost 2023-06-07 10:24:14 +00:00
parent fa36cb4de1
commit db65816ef0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Course/ParticipantInvite.hs
View File

@ -42,7 +42,7 @@ defaultTutorialType :: TutorialType
defaultTutorialType = "Schulung" defaultTutorialType = "Schulung"
tutorialTypeSeparator :: TutorialType tutorialTypeSeparator :: TutorialType
tutorialTypeSeparator = "___" tutorialTypeSeparator = "_"
tutorialTemplateNames :: Maybe TutorialType -> [TutorialType] tutorialTemplateNames :: Maybe TutorialType -> [TutorialType]
tutorialTemplateNames Nothing = ["Vorlage", "Template"] tutorialTemplateNames Nothing = ["Vorlage", "Template"]
@ -52,7 +52,7 @@ tutorialDefaultName :: Maybe TutorialType -> Day -> TutorialName
tutorialDefaultName Nothing = CI.mk . tshow -- Don't use user date display setting, so that tutorial default names conform to all users tutorialDefaultName Nothing = CI.mk . tshow -- Don't use user date display setting, so that tutorial default names conform to all users
tutorialDefaultName (Just ttyp) = tutorialDefaultName (Just ttyp) =
let prefix = CI.mk $ snd $ Text.breakOnEnd (CI.original tutorialTypeSeparator) $ CI.original ttyp let prefix = CI.mk $ snd $ Text.breakOnEnd (CI.original tutorialTypeSeparator) $ CI.original ttyp
in ((prefix <> "_") <>) . tutorialDefaultName Nothing in ((prefix <> tutorialTypeSeparator) <>) . tutorialDefaultName Nothing
data ButtonCourseRegisterMode = BtnCourseRegisterConfirm | BtnCourseRegisterAbort data ButtonCourseRegisterMode = BtnCourseRegisterConfirm | BtnCourseRegisterAbort
deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic) deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic)
@ -74,7 +74,7 @@ instance Button UniWorX ButtonCourseRegisterMode where
data CourseRegisterAction data CourseRegisterAction
= CourseRegisterActionAddParticipant = CourseRegisterActionAddParticipant
| CourseRegisterActionAddTutorialMember | CourseRegisterActionAddTutorialMember
-- | CourseRegisterActionUnknownPerson -- | CourseRegisterActionUnknownPerson
deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic) deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic)
instance Universe CourseRegisterAction instance Universe CourseRegisterAction
instance Finite CourseRegisterAction instance Finite CourseRegisterAction
@ -89,7 +89,7 @@ data CourseRegisterActionData
, crActUser :: (UserId, User) , crActUser :: (UserId, User)
, crActTutorial :: (Maybe TutorialName, Maybe TutorialType, Maybe Day) , crActTutorial :: (Maybe TutorialName, Maybe TutorialType, Maybe Day)
} }
-- | CourseRegisterActionUnknownPersonData -- pseudo-action; just for display -- | CourseRegisterActionUnknownPersonData -- pseudo-action; just for display
-- { crActUnknownPersonIdent :: Text -- { crActUnknownPersonIdent :: Text
-- } -- }
deriving (Eq, Ord, Show, Generic) deriving (Eq, Ord, Show, Generic)