diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-05-06 20:43:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-05-06 20:43:06 +0000 |
| commit | 0a4f3ff459e8df7eb0ca2700c8bc5f47d08e5b78 (patch) | |
| tree | b2ab9fd5ef1652ac3334a5ddc66f9125256f0923 /src/Haddock/Backends/Html.hs | |
| parent | 3d46394a3f3ca22a214f253731efc72b42a57d53 (diff) | |
Fix build
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 68d1da42..24a9b3d2 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1517,8 +1517,9 @@ ppForAll Explicit ltvs lctxt = ppBang :: HsBang -> Html ppBang HsNoBang = empty ppBang HsStrict = toHtml "!" -ppBang HsUnbox = toHtml "!" -- unboxed args is an implementation detail, +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, tupleParens :: Boxity -> [Html] -> Html |