fix(submissions): notDE, notEN for unambiguous negation
This commit is contained in:
parent
d02e203f91
commit
ae66fdfb8a
@ -160,7 +160,7 @@ SubmissionDownloadGroups: Mit festen Abgabegruppen
|
||||
CorrAutoSetCorrector: Korrekturen verteilen
|
||||
CorrDelete: Abgaben löschen
|
||||
CorrSetCorrectionsDone: Korrekturen als abgeschlossen markieren
|
||||
SetCorrectionsDone b@Bool: Korrekturen als #{bool "nicht" "" b} abgeschlossen markiert
|
||||
SetCorrectionsDone b@Bool: Korrekturen als #{notDE b} abgeschlossen markiert
|
||||
SubmissionCorrected: Korrigiert
|
||||
CorrectionSheets: Übersicht Korrekturen nach Blättern
|
||||
CorrectionCorrectors: Übersicht Korrekturen nach Korrektor:innen
|
||||
|
||||
@ -160,7 +160,7 @@ SubmissionDownloadGroups: With registered submission groups
|
||||
CorrAutoSetCorrector: Distribute corrections
|
||||
CorrDelete: Delete submissions
|
||||
CorrSetCorrectionsDone: Set corrections as done
|
||||
SetCorrectionsDone b: Set corrections as #{bool "not" "" b} done
|
||||
SetCorrectionsDone b: Set corrections as #{notEN b} done
|
||||
SubmissionCorrected: Marked
|
||||
CorrectionSheets: Corrections by sheet
|
||||
CorrectionCorrectors: Corrections by corrector
|
||||
|
||||
@ -142,6 +142,11 @@ ordinalEN (toMessage -> numStr) = case lastChar of
|
||||
where
|
||||
lastChar = last <$> fromNullable numStr
|
||||
|
||||
notDE :: Bool -> Text
|
||||
notDE = bool "nicht" ""
|
||||
|
||||
notEN :: Bool -> Text
|
||||
notEN = bool "not" ""
|
||||
|
||||
-- | Convenience function for i18n messages definitions
|
||||
maybeToMessage :: ToMessage m => Text -> Maybe m -> Text -> Text
|
||||
|
||||
Reference in New Issue
Block a user