[Git][ghc/ghc][wip/runRW] Fix warnings

[Ben Gamari]

Ben Gamari pushed to branch wip/runRW at Glasgow Haskell Compiler / GHC


Commits:
d07ff71d by Ben Gamari at 2020-04-19T15:27:57-04:00
Fix warnings

- - - - -


3 changed files:

- compiler/GHC/CoreToStg/Prep.hs
- compiler/GHC/HsToCore/Utils.hs
- compiler/GHC/Stg/Lint.hs


Changes:

=====================================
compiler/GHC/CoreToStg/Prep.hs
=====================================
@@ -44,7 +44,6 @@ import GHC.Types.Var.Env
 import GHC.Types.Id
 import GHC.Types.Id.Info
 import TysWiredIn
-import TysPrim          ( realWorldStatePrimTy )
 import GHC.Core.DataCon
 import GHC.Types.Basic
 import GHC.Types.Module
@@ -843,7 +842,7 @@ cpeApp top_env expr
             _          -> cpe_app env arg (CpeApp (Var realWorldPrimId) : rest) (n-1)
              -- TODO: What about casts?
 
-    cpe_app env (Var f) args n
+    cpe_app _env (Var f) args n
         | f `hasKey` runRWKey
         = pprPanic "cpe_app(runRW#)" (ppr args $$ ppr n)
 


=====================================
compiler/GHC/HsToCore/Utils.hs
=====================================
@@ -490,7 +490,7 @@ mkCoreAppDs _ (Var f `App` Type _r `App` Type ty1 `App` Type ty2 `App` arg1) arg
                    Var v1 | isInternalName (idName v1)
                           -> v1        -- Note [Desugaring seq], points (2) and (3)
                    _      -> mkWildValBinder ty1
-mkCoreAppDs _ e@(Var f `App` Type r `App` Type ty1) arg
+mkCoreAppDs _ e@(Var f `App` Type _rep `App` Type ty1) arg
   | f `hasKey` runRWKey
   = e `App` etaExpand 1 arg
 


=====================================
compiler/GHC/Stg/Lint.hs
=====================================
@@ -54,7 +54,6 @@ import ErrUtils             ( MsgDoc, Severity(..), mkLocMessage )
 import GHC.Core.Type
 import GHC.Types.RepType
 import GHC.Types.SrcLoc
-import GHC.Types.Unique     ( hasKey )
 import Outputable
 import GHC.Types.Module           ( Module )
 import qualified ErrUtils as Err



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d07ff71dfb3826bc39b54da75e4fcbeaedd05a61

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d07ff71dfb3826bc39b54da75e4fcbeaedd05a61
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200419/d5d62a21/attachment-0001.html>