diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:36 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:36 +0000 |
| commit | 5a5b4cb261056baae6832aa2d79672475863b6c5 (patch) | |
| tree | e022edfbd77c1a701c98fdc356947678122b77d9 /compiler/cmm | |
| parent | a17889597792b1f2db29bdb92f4d1ee3a677d258 (diff) | |
| download | haskell-5a5b4cb261056baae6832aa2d79672475863b6c5.tar.gz | |
Document ZipCfg
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/ZipCfg.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/ZipCfg.hs b/compiler/cmm/ZipCfg.hs index 5681694aee..78eeaed3e6 100644 --- a/compiler/cmm/ZipCfg.hs +++ b/compiler/cmm/ZipCfg.hs @@ -405,7 +405,7 @@ splitp_blocks p blocks = lift $ foldUFM scan (Nothing, emptyBlockEnv) blocks lift (Nothing, _) = Nothing lift (Just b, bs) = Just (b, bs) --- | 'insertBlock' should not be used to *replace* an existing block +-- | 'insertBlock' should not be used to /replace/ an existing block -- but only to insert a new one insertBlock :: Block m l -> BlockEnv (Block m l) -> BlockEnv (Block m l) insertBlock b bs = |