[commit: haddock] master: Track change to HsBang type (266a20a)

Simon Peyton Jones simonpj at microsoft.com
Mon Jan 14 18:10:44 CET 2013


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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/266a20afd2d27f28bbb62839ebc3f70bd83bfcce

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

commit 266a20afd2d27f28bbb62839ebc3f70bd83bfcce
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 14 17:10:27 2013 +0000

    Track change to HsBang type

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

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

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index b4cf86f..71c68bf 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -216,9 +216,9 @@ synifyDataCon use_gadt_syntax dc = noLoc $
   linear_tys = zipWith (\ty bang ->
             let tySyn = synifyType WithinType ty
                 src_bang = case bang of
-                             HsUnpack {} -> HsBang True
-                             HsStrict -> HsBang False
-                             _        -> bang
+                             HsUnpack {} -> HsUserBang (Just True) True
+                             HsStrict    -> HsUserBang (Just False) True
+                             _           -> bang
             in case src_bang of
                  HsNoBang -> tySyn
                  _        -> noLoc $ HsBangTy bang tySyn





More information about the ghc-commits mailing list