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

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-08-24 17:05:10 +02:00
parent 447c710d4e
commit f2971f66fd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Jobs/Handler/SendNotification/Allocation.hs
View File

@ -74,7 +74,7 @@ dispatchNotificationAllocationAllocation (otoList -> nAllocations) jRecipient =
unless (null courses) . userMailT jRecipient $ do
now <- liftIO getCurrentTime
let doRegisterDeadlines = any (> NTop (Just now)) $ map (NTop . allocationRegisterTo . entityVal) allocations
let doRegisterDeadlines = any (((<) `on` NTop) (Just now) . allocationRegisterTo . entityVal) allocations
replaceMailHeader "Auto-Submitted" $ Just "auto-generated"
case allocations of