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
                            ]