diff options
| -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 |