[commit: ghc] wip/orf-reboot: Qualified import to fix build pre-BBP (d664c07)
git at git.haskell.org
git at git.haskell.org
Mon Oct 12 06:37:38 UTC 2015
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/orf-reboot
Link : http://ghc.haskell.org/trac/ghc/changeset/d664c07350aebf94644c33009f7ca03bf62fe563/ghc
>---------------------------------------------------------------
commit d664c07350aebf94644c33009f7ca03bf62fe563
Author: Adam Gundry <adam at well-typed.com>
Date: Thu Oct 8 00:14:20 2015 +0100
Qualified import to fix build pre-BBP
>---------------------------------------------------------------
d664c07350aebf94644c33009f7ca03bf62fe563
compiler/rename/RnNames.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/compiler/rename/RnNames.hs b/compiler/rename/RnNames.hs
index ba30145..a1765e7 100644
--- a/compiler/rename/RnNames.hs
+++ b/compiler/rename/RnNames.hs
@@ -46,6 +46,7 @@ import ListSetOps
import Control.Monad
import Data.Either ( partitionEithers, isRight, rights )
+import qualified Data.Foldable as Foldable
import Data.Map ( Map )
import qualified Data.Map as Map
import Data.Ord ( comparing )
@@ -1470,7 +1471,7 @@ reportUnusedNames _export_decls gbl_env
-- Remove uses of record selectors recorded in the typechecker
used_as_selector :: Set.Set (FieldOcc Name) -> GlobalRdrElt -> Bool
used_as_selector sel_uses gre
- = isRecFldGRE gre && any ((==) (gre_name gre) . selectorFieldOcc) sel_uses
+ = isRecFldGRE gre && Foldable.any ((==) (gre_name gre) . selectorFieldOcc) sel_uses
{-
More information about the ghc-commits
mailing list