60cae8ab2bdc7e7ea4a7a196f9f91434f6f53421
[ghc.git] / compiler / cmm / Hoopl.hs
1 {-# LANGUAGE RankNTypes, ScopedTypeVariables #-}
2 {-# OPTIONS_GHC -fno-warn-orphans #-}
3
4 module Hoopl (
5 module Compiler.Hoopl,
6 module Hoopl.Dataflow,
7 ) where
8
9 import Compiler.Hoopl hiding
10 ( (<*>), mkLabel, mkBranch, mkMiddle, mkLast, -- clashes with our MkGraph
11 DataflowLattice, OldFact, NewFact, JoinFun,
12 fact_bot, fact_join, joinOutFacts, mkFactBase,
13 Unique,
14 FwdTransfer(..), FwdRewrite(..), FwdPass(..),
15 BwdTransfer(..), BwdRewrite(..), BwdPass(..),
16 mkFactBase, Fact,
17 mkBRewrite3, mkBTransfer3,
18 mkFRewrite3, mkFTransfer3,
19
20 )
21
22 import Hoopl.Dataflow
23 import Outputable
24
25 instance Outputable LabelSet where
26 ppr = ppr . setElems
27
28 instance Outputable a => Outputable (LabelMap a) where
29 ppr = ppr . mapToList