diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-15 20:10:30 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-15 20:10:30 +0000 |
| commit | cd437edc8792e5dbcfaa6a6b9948364e9d9d08f3 (patch) | |
| tree | 3faffa8e98db3d5046d7f619b3a12ccfb75bca5b /compiler/cmm/DFMonad.hs | |
| parent | 6cc7a2957040c2d751a14c3776cf144152be4dd0 (diff) | |
| download | haskell-cd437edc8792e5dbcfaa6a6b9948364e9d9d08f3.tar.gz | |
get freshBlockId out of ZipCfg and bury it in MkZipCfg where it belongs
Diffstat (limited to 'compiler/cmm/DFMonad.hs')
| -rw-r--r-- | compiler/cmm/DFMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/DFMonad.hs b/compiler/cmm/DFMonad.hs index 0365cbb9b0..e8afab42ad 100644 --- a/compiler/cmm/DFMonad.hs +++ b/compiler/cmm/DFMonad.hs @@ -24,7 +24,7 @@ import Maybes import PprCmm() import UniqFM import UniqSupply -import ZipCfg hiding (freshBlockId) +import ZipCfg import qualified ZipCfg as G import Outputable @@ -247,7 +247,7 @@ markGraphRewritten = DFM f where f _ s = ((), s {df_rewritten = SomeChange}) freshBlockId :: String -> DFM f BlockId -freshBlockId s = liftUSM $ G.freshBlockId s +freshBlockId _s = liftUSM $ getUniqueUs >>= return . BlockId liftUSM :: UniqSM a -> DFM f a liftUSM uc = DFM f |