From f2971f66fd832f60db33a20b7fdf35bc36375bf4 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Mon, 24 Aug 2020 17:05:10 +0200
Subject: [PATCH] refactor: hlint

---
 src/Jobs/Handler/SendNotification/Allocation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Jobs/Handler/SendNotification/Allocation.hs b/src/Jobs/Handler/SendNotification/Allocation.hs
index 3a33f8c5b..0f9a50741 100644
--- a/src/Jobs/Handler/SendNotification/Allocation.hs
+++ b/src/Jobs/Handler/SendNotification/Allocation.hs
@@ -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