aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
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