diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-02-13 22:08:45 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-13 22:08:45 +0000 |
| commit | 5cf9c0191566a3fd806a12e58b93ee813d4528f9 (patch) | |
| tree | 405c75654bdaeda3532e2f80dfa946eb1ec653fa /compiler/cmm/PprCmm.hs | |
| parent | 32d652e4d2fd9ae01de08d0cb6ef82a2f409b0ae (diff) | |
| download | haskell-5cf9c0191566a3fd806a12e58b93ee813d4528f9.tar.gz | |
remove unused Conventions (Foreign, Private)
Diffstat (limited to 'compiler/cmm/PprCmm.hs')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index d32f129247..81c9b9ea93 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -147,8 +147,6 @@ pprConvention Slow = text "<slow-convention>" pprConvention GC = text "<gc-convention>" pprConvention PrimOpCall = text "<primop-call-convention>" pprConvention PrimOpReturn = text "<primop-ret-convention>" -pprConvention (Foreign c) = ppr c -pprConvention (Private {}) = text "<private-convention>" pprForeignConvention :: ForeignConvention -> SDoc pprForeignConvention (ForeignConvention c as rs) = ppr c <> ppr as <> ppr rs |