From 4a621cbb2f3e5ec50c47a9c6cf028e432deb44b6 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Sun, 26 May 2019 13:40:03 +0200
Subject: [PATCH] Hlint

---
 src/Application.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Application.hs b/src/Application.hs
index b0eddd7ec..bf7927e51 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -438,7 +438,7 @@ appMain = runResourceT $ do
                                  Nothing -> retry
                                  Just rs -> do
                                    let status = ofoldMap1 (Max *** Min . healthReportStatus) rs
-                                   guard $ maybe True (/= status) pStatus
+                                   guard $ pStatus /= Just status
                                    return status
                            ]