Hlint

2019-05-26 13:40:03 +02:00 · 2019-05-26 13:40:03 +02:00 · 4a621cbb2f
commit 4a621cbb2f
parent 679fb7cf9b
1 changed files with 1 additions and 1 deletions
--- 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
                           ]