[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