feat(storage-key): add breadcrumb and import

messages/uniworx/de-de-formal.msg

@@ -1270,6 +1270,7 @@ BreadcrumbExternalExamGrades: Prüfungsleistungen
 BreadcrumbExternalExamStaffInvite: Einladung zum Prüfer
 BreadcrumbParticipantsList: Kursteilnehmerlisten
 BreadcrumbParticipants: Kursteilnehmerliste
+BreadcrumbStorageKey: Lokalen Schlüssel generieren
 
 ExternalExamEdit coursen@CourseName examn@ExamName: Bearbeiten: #{coursen}, #{examn}
 ExternalExamGrades coursen@CourseName examn@ExamName: Prüfungsleistungen: #{coursen}, #{examn}

messages/uniworx/en-eu.msg

@@ -1269,6 +1269,7 @@ BreadcrumbExternalExamGrades: Exam results
 BreadcrumbExternalExamStaffInvite: Invitation
 BreadcrumbParticipantsList: Lists of course participants
 BreadcrumbParticipants: Course participants
+BreadcrumbStorageKey: Generate storage key
 
 ExternalExamEdit coursen examn: Edit: #{coursen}, #{examn}
 ExternalExamGrades coursen examn: Exam achievements: #{coursen}, #{examn}

src/Application.hs

@@ -124,6 +124,7 @@ import Handler.ExamOffice
 import Handler.Metrics
 import Handler.ExternalExam
 import Handler.Participants
+import Handler.StorageKey
 
 
 -- This line actually creates our YesodDispatch instance. It is the second half

src/Foundation.hs

@@ -1837,6 +1837,8 @@ instance YesodBreadcrumbs UniWorX where
   breadcrumb CsvOptionsR      = i18nCrumb MsgCsvOptions        $ Just ProfileR
   breadcrumb LangR            = i18nCrumb MsgMenuLanguage      $ Just ProfileR
 
+  breadcrumb StorageKeyR      = i18nCrumb MsgBreadcrumbStorageKey Nothing
+
   breadcrumb TermShowR              = i18nCrumb MsgMenuTermShow    $ Just HomeR
   breadcrumb TermCurrentR           = i18nCrumb MsgMenuTermCurrent $ Just TermShowR
   breadcrumb TermEditR              = i18nCrumb MsgMenuTermCreate  $ Just TermShowR