diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-05 13:23:21 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-05 13:23:21 +0100 |
| commit | bfbdbcb9c4fc7608c6eb6d3d1c645bfb501ecf0a (patch) | |
| tree | a16feb6524e5961890bfff4e53e6fdbe2a91784c /compiler/cmm/CmmNode.hs | |
| parent | 3f0afabaf3e862d986279dc041b14b61e73f86d3 (diff) | |
| download | haskell-bfbdbcb9c4fc7608c6eb6d3d1c645bfb501ecf0a.tar.gz | |
Remove "fuel", adapt to Hoopl changes, fix warnings
Diffstat (limited to 'compiler/cmm/CmmNode.hs')
| -rw-r--r-- | compiler/cmm/CmmNode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs index cd46794580..9e75387436 100644 --- a/compiler/cmm/CmmNode.hs +++ b/compiler/cmm/CmmNode.hs @@ -400,5 +400,5 @@ mapSuccessors :: (Label -> Label) -> CmmNode O C -> CmmNode O C mapSuccessors f (CmmBranch bid) = CmmBranch (f bid) mapSuccessors f (CmmCondBranch p y n) = CmmCondBranch p (f y) (f n) mapSuccessors f (CmmSwitch e arms) = CmmSwitch e (map (fmap f) arms) -mapSuccessors f n = n +mapSuccessors _ n = n |