diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-31 19:50:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-31 19:50:08 -0400 |
| commit | 55783d886d3300555d4b68ff7323e2365928e059 (patch) | |
| tree | 760debcb086676c4d2d1a50f72b7bd78f001bd43 | |
| parent | 38eff1dc1feeb3f8f9b6dacb2027aa827fbf19ad (diff) | |
add explanation for why strictness is needed here
| -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 |