From 95ef20b14e20d7ef57eae58d93dd16121b0c7e1e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 2 Jun 2010 09:03:04 +0000 Subject: Fix compilation with GHC 6.13 --- src/Haddock/Backends/Xhtml/Decl.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs index 919466b5..0ea35a87 100644 --- a/src/Haddock/Backends/Xhtml/Decl.hs +++ b/src/Haddock/Backends/Xhtml/Decl.hs @@ -744,8 +744,7 @@ ppForAll Explicit ltvs lctxt = ppBang :: HsBang -> Html ppBang HsNoBang = empty -ppBang HsStrict = toHtml "!" -ppBang HsUnbox = toHtml "!" -- unboxed args is an implementation detail, +ppBang _ = toHtml "!" -- Unpacked args is an implementation detail, -- so we just show the strictness annotation -- cgit v1.2.3