diff options
| author | David Waern <david.waern@gmail.com> | 2009-01-21 21:41:48 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-01-21 21:41:48 +0000 |
| commit | fdceb0b527144c33bce39a1165c97cfa073a0c74 (patch) | |
| tree | 73ebc6fd84b14f6a4f22ed9b343b26016d2d9bf6 /src/Haddock/Backends/Html.hs | |
| parent | 527617f3e45367231d7f9c4c4de182870739cf95 (diff) | |
Do not indicate that a constructor argument is unboxed
We only show the strictness annotation for an unboxed constructor argument. The
fact that it is unboxed is an implementation detail and should not be part of
the module interface.
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 4044e9ef..bd305518 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1415,7 +1415,8 @@ ppForAll Explicit ltvs lctxt = -} ppBang HsStrict = toHtml "!" -ppBang HsUnbox = toHtml "!!" +ppBang HsUnbox = toHtml "!" -- unboxed args is an implementation detail, + -- so we just show the strictness annotation tupleParens Boxed = parenList tupleParens Unboxed = ubxParenList |