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 <simo...@microsoft.com> 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 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc