[commit: haddock] master: Track changes in HsBang (45e5d83)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/45e5d834d473ab2f5930371e272a438590bc3f7e

>---------------------------------------------------------------

commit 45e5d834d473ab2f5930371e272a438590bc3f7e
Author: Simon Peyton Jones <[email protected]>
Date:   Sun Dec 23 15:49:58 2012 +0000

    Track changes in HsBang

>---------------------------------------------------------------

 src/Haddock/Convert.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index aca1218..28f43a0 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -198,7 +198,7 @@ synifyDataCon use_gadt_syntax dc = noLoc $
   linear_tys = zipWith (\ty bang ->
             let tySyn = synifyType WithinType ty
                 src_bang = case bang of
-                             HsUnpack -> HsBang True
+                             HsUnpack {} -> HsBang True
                              HsStrict -> HsBang False
                              _        -> bang
             in case src_bang of