diff options
Diffstat (limited to 'compiler/cmm/CmmBuildInfoTables.hs')
| -rw-r--r-- | compiler/cmm/CmmBuildInfoTables.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmBuildInfoTables.hs b/compiler/cmm/CmmBuildInfoTables.hs index e6d9eea6e6..a58a0ade0f 100644 --- a/compiler/cmm/CmmBuildInfoTables.hs +++ b/compiler/cmm/CmmBuildInfoTables.hs @@ -55,7 +55,7 @@ import Platform import SMRep import UniqSupply -import Compiler.Hoopl +import Hoopl import Data.Map (Map) import qualified Data.Map as Map @@ -216,7 +216,7 @@ cafTransfers platform = mkBTransfer3 first middle last cafAnal :: Platform -> CmmGraph -> FuelUniqSM CAFEnv cafAnal platform g - = liftM snd $ dataflowPassBwd g [] $ analBwd cafLattice (cafTransfers platform) + = dataflowAnalBwd g [] $ analBwd cafLattice (cafTransfers platform) ----------------------------------------------------------------------- -- Building the SRTs |