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

fix(home): fix hlint and other minor bugs

Browse Source
This commit is contained in:
Steffen Jost 2019-08-22 18:07:22 +02:00
parent d23e222fd0
commit 839251ede3
5 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/uniworx/de.msg
View File

@ -596,7 +596,7 @@ MultiSinkException name@Text error@Text: In Abgabe #{name} ist ein Fehler aufget
NoTableContent: Kein Tabelleninhalt NoTableContent: Kein Tabelleninhalt
NoUpcomingSheetDeadlines: Keine anstehenden Übungsblätter NoUpcomingSheetDeadlines: Keine anstehenden Übungsblätter
NoUpcomingExams difftime@Text: In den nächsten #{difftime} gibt es keine Prüfung oder ablaufende Prüfungsanmeldungen in Ihren Kursen NoUpcomingExams difftime@Text: In den nächsten #{difftime} gibt es keine Prüfungen oder ablaufende Prüfungsanmeldungen in Ihren Kursen
AdminHeading: Administration AdminHeading: Administration
AdminUserHeading: Benutzeradministration AdminUserHeading: Benutzeradministration

2
src/Handler/Allocation/Info.hs
View File

@ -7,7 +7,7 @@ import Handler.Utils
getInfoAllocationR :: Handler Html getInfoAllocationR :: Handler Html
getInfoAllocationR = do getInfoAllocationR =
siteLayoutMsg MsgMenuAllocationInfo $ do siteLayoutMsg MsgMenuAllocationInfo $ do
setTitleI MsgMenuAllocationInfo setTitleI MsgMenuAllocationInfo
$(i18nWidgetFile "allocation-info") $(i18nWidgetFile "allocation-info")

1
src/Handler/Profile.hs
View File

@ -197,6 +197,7 @@ postProfileR = do
, UserDateFormat =. stgDate , UserDateFormat =. stgDate
, UserTimeFormat =. stgTime , UserTimeFormat =. stgTime
, UserDownloadFiles =. stgDownloadFiles , UserDownloadFiles =. stgDownloadFiles
, UserWarningDays =. stgWarningDays
, UserNotificationSettings =. stgNotificationSettings , UserNotificationSettings =. stgNotificationSettings
] ]
when (stgMaxFavourties < userMaxFavourites) $ do when (stgMaxFavourties < userMaxFavourites) $ do

2
src/Utils/Form.hs
View File

@ -567,7 +567,7 @@ intMinMaxField lower upper = intF{ fieldView=newView }
newAttrs = [ (a,tshow v) | (a,Just v) <- [("min", lower),("max", upper)] ] newAttrs = [ (a,tshow v) | (a,Just v) <- [("min", lower),("max", upper)] ]
daysField :: (Monad m, RenderMessage (HandlerSite m) FormMessage) => Field m NominalDiffTime daysField :: (Monad m, RenderMessage (HandlerSite m) FormMessage) => Field m NominalDiffTime
daysField = convertField toDays fromDays fractionalField daysField = convertField fromDays toDays fractionalField
where where
toDays = (/ nominalDay) toDays = (/ nominalDay)
fromDays = (* nominalDay) fromDays = (* nominalDay)

1
test/ModelSpec.hs
View File

@ -98,6 +98,7 @@ instance Arbitrary User where
userTimeFormat <- genDateTimeFormat SelFormatTime userTimeFormat <- genDateTimeFormat SelFormatTime
userDownloadFiles <- arbitrary userDownloadFiles <- arbitrary
userWarningDays <- arbitrary
userMailLanguages <- arbitrary userMailLanguages <- arbitrary
userNotificationSettings <- arbitrary userNotificationSettings <- arbitrary