From 55783d886d3300555d4b68ff7323e2365928e059 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 31 Aug 2011 19:50:08 -0400 Subject: [PATCH] add explanation for why strictness is needed here --- Command/Unused.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Command/Unused.hs b/Command/Unused.hs index 27f5af1b45..6a62cde5f8 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