diff options
| author | simonpj@microsoft.com <unknown> | 2008-01-04 10:54:09 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-01-04 10:54:09 +0000 |
| commit | d3ff015a17804b31727b41e3e9dff03b6a654143 (patch) | |
| tree | 2cdd30f9339e88864b0b3959703bfbad8475c38c /compiler/cmm/CmmSpillReload.hs | |
| parent | d76b6a05ab36066e8aeb67d58e25992d1ef83a8a (diff) | |
| download | haskell-d3ff015a17804b31727b41e3e9dff03b6a654143.tar.gz | |
Make the instance of DebugNodes more H98-like
Diffstat (limited to 'compiler/cmm/CmmSpillReload.hs')
| -rw-r--r-- | compiler/cmm/CmmSpillReload.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmSpillReload.hs b/compiler/cmm/CmmSpillReload.hs index 0c53309657..707a571b3f 100644 --- a/compiler/cmm/CmmSpillReload.hs +++ b/compiler/cmm/CmmSpillReload.hs @@ -360,7 +360,7 @@ instance Outputable m => Outputable (ExtendWithSpills m) where ppr (Reload regs) = ppr_regs "Reload" regs ppr (NotSpillOrReload m) = ppr m -instance DebugNodes M Last +instance Outputable m => DebugNodes (ExtendWithSpills m) Last ppr_regs :: String -> RegSet -> SDoc ppr_regs s regs = text s <+> commafy (map ppr $ uniqSetToList regs) |