aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-01-21 21:41:48 +0000
committerDavid Waern <david.waern@gmail.com>2009-01-21 21:41:48 +0000
commitfdceb0b527144c33bce39a1165c97cfa073a0c74 (patch)
tree73ebc6fd84b14f6a4f22ed9b343b26016d2d9bf6 /src/Haddock/Backends
parent527617f3e45367231d7f9c4c4de182870739cf95 (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')
-rw-r--r--src/Haddock/Backends/Html.hs3
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