From 45e5d834d473ab2f5930371e272a438590bc3f7e Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Sun, 23 Dec 2012 15:49:58 +0000
Subject: Track changes in HsBang

---
 src/Haddock/Convert.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index aca12188..28f43a0a 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
-- 
cgit v1.2.3