Update comment about extractCondition.

grayjay · May 17, 2020 · 3838247 · 3838247
1 parent f6f78d1
commit 3838247
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Cabal/Distribution/Types/CondTree.hs b/Cabal/Distribution/Types/CondTree.hs
@@ -140,8 +140,9 @@ traverseCondBranchC f (CondBranch cnd t me) = CondBranch cnd
 
 -- | Extract the condition matched by the given predicate from a cond tree.
 --
--- We use this mainly for extracting buildable conditions (see the Note above),
--- but the function is in fact more general.
+-- We use this mainly for extracting buildable conditions (see the Note in
+-- Distribution.PackageDescription.Configuration), but the function is in fact
+-- more general.
 extractCondition :: Eq v => (a -> Bool) -> CondTree v c a -> Condition v
 extractCondition p = go
   where