diff options
| author | simonpj@microsoft.com <unknown> | 2010-07-29 15:26:11 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-07-29 15:26:11 +0000 |
| commit | e3d1ba74f7b1ec4ea7463aab783265b4baaf3366 (patch) | |
| tree | ec52a1938c449e4d79589fb95c4179e263f26a9b /compiler/cmm/PprCmm.hs | |
| parent | 64f79adc47a75a3a77b81b9c2f43d102495cd9e9 (diff) | |
| download | haskell-e3d1ba74f7b1ec4ea7463aab783265b4baaf3366.tar.gz | |
Add two local type signatures
Diffstat (limited to 'compiler/cmm/PprCmm.hs')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 11602733d4..a9df2b9303 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -265,6 +265,8 @@ pprStmt stmt = case stmt of pp_lhs | null results = empty | otherwise = commafy (map ppr_ar results) <+> equals -- Don't print the hints on a native C-- call + + ppr_ar :: Outputable a => CmmHinted a -> SDoc ppr_ar (CmmHinted ar k) = case cconv of CmmCallConv -> ppr ar _ -> ppr (ar,k) |