fix(home): fix hlint and other minor bugs

messages/uniworx/de.msg

@@ -596,7 +596,7 @@ MultiSinkException name@Text error@Text: In Abgabe #{name} ist ein Fehler aufget
 
 NoTableContent: Kein Tabelleninhalt
 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
 AdminUserHeading: Benutzeradministration

src/Handler/Allocation/Info.hs

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

src/Handler/Profile.hs

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

src/Utils/Form.hs

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

test/ModelSpec.hs

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