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

Hlint

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-26 13:40:03 +02:00
parent 679fb7cf9b
commit 4a621cbb2f
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/Application.hs
View File

@ -438,7 +438,7 @@ appMain = runResourceT $ do
Nothing -> retry Nothing -> retry
Just rs -> do Just rs -> do
let status = ofoldMap1 (Max *** Min . healthReportStatus) rs let status = ofoldMap1 (Max *** Min . healthReportStatus) rs
guard $ maybe True (/= status) pStatus guard $ pStatus /= Just status
return status return status
] ]