diff options
author | Benjamin Maurer <maurer.benjamin@gmail.com> | 2021-10-06 17:54:07 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-07 03:42:36 -0400 |
commit | 358f62221881e306cc7b005e8d594070561d8efd (patch) | |
tree | 4218288c87c7ea0370f8e2cf38a558d3469612fd | |
parent | e82c8dd2157ee555ee74f1e713235b9b5fac4535 (diff) | |
download | haskell-358f62221881e306cc7b005e8d594070561d8efd.tar.gz |
Removed left-over comment from `nonDetEltsUFM`-removal in `seqEltsUFM`.
-rw-r--r-- | compiler/GHC/Types/Unique/FM.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/GHC/Types/Unique/FM.hs b/compiler/GHC/Types/Unique/FM.hs index 15ca24e4b2..1be4628d8e 100644 --- a/compiler/GHC/Types/Unique/FM.hs +++ b/compiler/GHC/Types/Unique/FM.hs @@ -384,9 +384,6 @@ allUFM p (UFM m) = M.foldr ((&&) . p) True m seqEltsUFM :: (elt -> ()) -> UniqFM key elt -> () seqEltsUFM seqElt = foldUFM (\v rest -> seqElt v `seq` rest) () - -- It's OK to use nonDetEltsUFM here because the type guarantees that - -- the only interesting thing this function can do is to force the - -- elements. -- See Note [Deterministic UniqFM] to learn about nondeterminism. -- If you use this please provide a justification why it doesn't introduce |