[commit: haddock] wip/T11080-open-data-kinds: Add missing import (9bc6bca)

git at git.haskell.org git at git.haskell.org
Tue Nov 28 11:43:32 UTC 2017


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

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

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

commit 9bc6bca30c0605ad7636aeef87bbc34790766f71
Author: Jan Stolarek <jan.stolarek at p.lodz.pl>
Date:   Fri Jan 15 00:04:35 2016 +0100

    Add missing import


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

9bc6bca30c0605ad7636aeef87bbc34790766f71
 haddock-api/src/Haddock/Convert.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index 2524232..f101025 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -17,7 +17,7 @@ module Haddock.Convert where
 -- instance heads, which aren't TyThings, so just export everything.
 
 import Bag ( emptyBag )
-import BasicTypes ( TupleSort(..) )
+import BasicTypes ( TupleSort(..), AllowedInTypes(..) )
 import Class
 import CoAxiom
 import ConLike
@@ -199,7 +199,8 @@ synifyTyCon coax tc
   alg_nd = if isNewTyCon tc then NewType else DataType
   alg_ctx = synifyCtx (tyConStupidTheta tc)
   allowedInTerms | isPromotedDataCon tc
-                 , dataConAllowedInTerms (promTyConDataCon tc)
+                 , AllowedInTypesOnly <-
+                     dataConAllowedInTerms (promTyConDataCon tc)
                  = AllowedInTypesOnly
                  | otherwise = AllowedInTerms
   name = case coax of



More information about the ghc-commits mailing list