From c545e237063ca7341f696c5a352c0782be2c4d76 Mon Sep 17 00:00:00 2001
From: simonpj <simonpj@microsoft.com>
Date: Fri, 7 May 2010 13:21:09 +0000
Subject: Minor wibbles to HsBang stuff

---
 src/Haddock/Backends/Html.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Haddock/Backends/Html.hs')

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 24a9b3d2..8df0c84a 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1516,11 +1516,7 @@ ppForAll Explicit ltvs lctxt =
 
 ppBang :: HsBang -> Html
 ppBang HsNoBang = empty 
-ppBang HsStrict = toHtml "!"
-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,
-
+ppBang _        = toHtml "!" -- Unpacked args is an implementation detail,
 
 tupleParens :: Boxity -> [Html] -> Html
 tupleParens Boxed   = parenList
-- 
cgit v1.2.3