[commit: haddock] wip/T11080-open-data-kinds: Fixing build errors... (52676f5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : wip/T11080-open-data-kinds
Link       : http://git.haskell.org/haddock.git/commitdiff/52676f5a1ee064d87a7e102c42a5750595c16ac8

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

commit 52676f5a1ee064d87a7e102c42a5750595c16ac8
Author: Jan Stolarek <jan.stolarek at p.lodz.pl>
Date:   Thu Jan 14 18:48:11 2016 +0100

    Fixing build errors...


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

52676f5a1ee064d87a7e102c42a5750595c16ac8
 haddock-api/src/Haddock/Convert.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index e1b942a..2524232 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -198,8 +198,8 @@ synifyTyCon coax tc
   let
   alg_nd = if isNewTyCon tc then NewType else DataType
   alg_ctx = synifyCtx (tyConStupidTheta tc)
-  allowedInTerms | PromotedDataCon { dataCon = dc } <- tc
-                 , MkData { dcAllowedInTerms = AllowedInTypesOnly } <- dc
+  allowedInTerms | isPromotedDataCon tc
+                 , dataConAllowedInTerms (promTyConDataCon tc)
                  = AllowedInTypesOnly
                  | otherwise = AllowedInTerms
   name = case coax of