From 103a894471b18c9c3b0d9faffe2420e10b420686 Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Sun, 12 May 2019 19:12:15 -0400
Subject: Changes for #16110/#16356

---
 haddock-api/src/Haddock/Backends/Hoogle.hs | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'haddock-api/src/Haddock/Backends')

diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs
index 6aac2f08..45318498 100644
--- a/haddock-api/src/Haddock/Backends/Hoogle.hs
+++ b/haddock-api/src/Haddock/Backends/Hoogle.hs
@@ -18,7 +18,7 @@ module Haddock.Backends.Hoogle (
   ) where
 
 import BasicTypes ( OverlapFlag(..), OverlapMode(..), SourceText(..)
-                  , PromotionFlag(..) )
+                  , PromotionFlag(..), TopLevelFlag(..) )
 import InstEnv (ClsInst(..))
 import Documentation.Haddock.Markup
 import Haddock.GhcUtils
@@ -174,7 +174,7 @@ ppClass dflags decl subdocs =
             | null $ tcdATs decl = ""
             | otherwise = (" " ++) . showSDocUnqual dflags . whereWrapper $ concat
                 [ map pprTyFam (tcdATs decl)
-                , map (ppr . tyFamEqnToSyn . unLoc) (tcdATDefs decl)
+                , map (pprTyFamInstDecl NotTopLevel . unLoc) (tcdATDefs decl)
                 ]
 
         pprTyFam :: LFamilyDecl GhcRn -> SDoc
@@ -187,15 +187,6 @@ ppClass dflags decl subdocs =
             , rbrace
             ]
 
-        tyFamEqnToSyn :: TyFamDefltEqn GhcRn -> TyClDecl GhcRn
-        tyFamEqnToSyn tfe = SynDecl
-            { tcdLName  = feqn_tycon tfe
-            , tcdTyVars = feqn_pats tfe
-            , tcdFixity = feqn_fixity tfe
-            , tcdRhs    = feqn_rhs tfe
-            , tcdSExt   = emptyNameSet
-            }
-
 ppFam :: DynFlags -> FamilyDecl GhcRn -> [String]
 ppFam dflags decl@(FamilyDecl { fdInfo = info })
   = [out dflags decl']
-- 
cgit v1.2.3