X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fcmm%2FCmmProcPointZ.hs;h=c34f041bedd3125b20a4d821e1cb76d6291412cd;hb=8a9eb3cd35117c62ac9758d118c6f4109b7330cb;hp=12997dd49f7a6882f73b5bb3589f996035a5c986;hpb=a8e1e190ee5aa16f31bdde26daf3c897314e8994;p=ghc-hetmet.git diff --git a/compiler/cmm/CmmProcPointZ.hs b/compiler/cmm/CmmProcPointZ.hs index 12997dd..c34f041 100644 --- a/compiler/cmm/CmmProcPointZ.hs +++ b/compiler/cmm/CmmProcPointZ.hs @@ -5,26 +5,23 @@ module CmmProcPointZ ) where -import qualified Prelude as P import Prelude hiding (zip, unzip, last) import BlockId import CLabel import Cmm hiding (blockId) import CmmContFlowOpt -import CmmExpr import CmmInfo import CmmLiveZ import CmmTx import DFMonad import FiniteMap -import List (sortBy) +import Data.List (sortBy) import Maybes import MkZipCfg import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ) -import Monad +import Control.Monad import Outputable -import Panic import UniqSet import UniqSupply import ZipCfg