[commit: ghc] wip/T14677: WIP: elim warning to make Travis happy (db068cd)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T14677
Link       : http://ghc.haskell.org/trac/ghc/changeset/db068cd98b0d2766f9b140dbb04051f4579861f3/ghc

>---------------------------------------------------------------

commit db068cd98b0d2766f9b140dbb04051f4579861f3
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Jan 17 18:04:16 2018 +0100

    WIP: elim warning to make Travis happy


>---------------------------------------------------------------

db068cd98b0d2766f9b140dbb04051f4579861f3
 compiler/prelude/PrelRules.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/prelude/PrelRules.hs b/compiler/prelude/PrelRules.hs
index 384a580..3e9899f 100644
--- a/compiler/prelude/PrelRules.hs
+++ b/compiler/prelude/PrelRules.hs
@@ -41,7 +41,6 @@ import TyCon       ( tyConDataCons_maybe, isEnumerationTyCon, isNewTyCon
                    , unwrapNewTyCon_maybe, tyConDataCons )
 import DataCon     ( DataCon, dataConTagZ, dataConTyCon, dataConWorkId )
 import CoreUtils   ( cheapEqExpr, exprIsHNF, exprType )
-import CoreUnfold  ( exprIsConApp_maybe )
 import Type
 import OccName     ( occNameFS )
 import PrelNames
@@ -695,9 +694,6 @@ removeOp32 = do
 getArgs :: RuleM [CoreExpr]
 getArgs = RuleM $ \_ _ args -> Just args
 
-getInScopeEnv :: RuleM InScopeEnv
-getInScopeEnv = RuleM $ \_ iu _ -> Just iu
-
 -- return the n-th argument of this rule, if it is a literal
 -- argument indices start from 0
 getLiteral :: Int -> RuleM Literal