diff options
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 27f5af1b4..6a62cde5f 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -80,6 +80,8 @@ checkRemoteUnused' r = do showLongNote $ remoteUnusedMsg r list showLongNote "\n" where + {- This should run strictly to avoid the filterM + - building many thunks containing keyLocations data. -} isthere k = do us <- keyLocations k let !there = uuid `elem` us |