From 7641b20d067143f2af1601abbcc349ad01cc14e1 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 29 Mar 2018 21:37:33 -0400 Subject: [PATCH] :fire: some obsolete comments referencing LocationFor. --- src/Analysis/Abstract/Collecting.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Analysis/Abstract/Collecting.hs b/src/Analysis/Abstract/Collecting.hs index e76e2a0f7..c93901aa4 100644 --- a/src/Analysis/Abstract/Collecting.hs +++ b/src/Analysis/Abstract/Collecting.hs @@ -55,7 +55,7 @@ askRoots :: (Effectful m, Member (Reader (Live location value)) effects) => m ef askRoots = raise ask -- | Run a computation with the given 'Live' set added to the local root set. --- extraRoots :: (Effectful m, Member (Reader (Live (LocationFor value) value)) effects, Ord (LocationFor value)) => Live (LocationFor value) value -> m effects a -> m effects a +-- extraRoots :: (Effectful m, Member (Reader (Live location value)) effects, Ord location) => Live location value -> m effects a -> m effects a -- extraRoots roots = raise . local (<> roots) . lower