diff options
Diffstat (limited to 'Logs/Trust.hs')
-rw-r--r-- | Logs/Trust.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Logs/Trust.hs b/Logs/Trust.hs index f18f42511..196666a84 100644 --- a/Logs/Trust.hs +++ b/Logs/Trust.hs @@ -38,7 +38,8 @@ trustPartition level ls | level == SemiTrusted = do t <- trustGet Trusted u <- trustGet UnTrusted - let uncandidates = t ++ u + d <- trustGet DeadTrusted + let uncandidates = t ++ u ++ d return $ partition (`notElem` uncandidates) ls | otherwise = do candidates <- trustGet level |