diff options
| author | simonpj <simonpj@microsoft.com> | 2010-05-07 13:21:09 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-05-07 13:21:09 +0000 |
| commit | c545e237063ca7341f696c5a352c0782be2c4d76 (patch) | |
| tree | 310c317abf53353cfae1575ae144feb6fa9be5a4 /src/Haddock/Backends/Html.hs | |
| parent | b4c37c66809c0df7b5de09bd438b79b12af17b4c (diff) | |
Minor wibbles to HsBang stuff
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 24a9b3d2..8df0c84a 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1516,11 +1516,7 @@ ppForAll Explicit ltvs lctxt = ppBang :: HsBang -> Html ppBang HsNoBang = empty -ppBang HsStrict = toHtml "!" -ppBang HsUnpack = toHtml "!" -- unboxed args is an implementation detail, - -- so we just show the strictness annotation -ppBang HsUnpackFailed = toHtml "!" -- unboxed args is an implementation detail, - +ppBang _ = toHtml "!" -- Unpacked args is an implementation detail, tupleParens :: Boxity -> [Html] -> Html tupleParens Boxed = parenList |