[Git][ghc/ghc][wip/con-info] fix warnings

[Matthew Pickering]

Matthew Pickering pushed to branch wip/con-info at Glasgow Haskell Compiler / GHC


Commits:
c64c9007 by Matthew Pickering at 2020-06-09T08:04:29+01:00
fix warnings

- - - - -


3 changed files:

- compiler/GHC/Cmm/CLabel.hs
- compiler/GHC/Driver/Hooks.hs
- compiler/GHC/Types/CostCentre.hs


Changes:

=====================================
compiler/GHC/Cmm/CLabel.hs
=====================================
@@ -355,6 +355,8 @@ instance Ord CLabel where
   compare _ HpcTicksLabel{} = GT
   compare SRTLabel{} _ = LT
   compare _ SRTLabel{} = GT
+  compare (IPE_Label {}) _ = LT
+  compare  _ (IPE_Label{}) = GT
 
 -- | Record where a foreign label is stored.
 data ForeignLabelSource


=====================================
compiler/GHC/Driver/Hooks.hs
=====================================
@@ -55,11 +55,7 @@ import GHC.Stg.Syntax
 import GHC.Data.Stream
 import GHC.Cmm
 import GHC.Hs.Extension
-import GHC.Types.Unique.Map
-import GHC.Core.DataCon
-import GHC.Types.Name.Set
 import Data.IORef
-import GHC.Cmm.CLabel
 
 import Data.Maybe
 


=====================================
compiler/GHC/Types/CostCentre.hs
=====================================
@@ -195,6 +195,7 @@ data InfoTableProvMap = InfoTableProvMap
                           { provDC  :: DCMap
                           , provClosure :: ClosureMap }
 
+emptyInfoTableProvMap :: InfoTableProvMap
 emptyInfoTableProvMap = InfoTableProvMap emptyUniqMap emptyUniqMap
 
 -- synonym for triple which describes the cost centre info in the generated



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c64c90075da8f6d0ffedc1cb332c27542b5f8bde
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/20200609/9fecd241/attachment-0001.html>