diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2018-04-07 14:14:32 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2018-04-07 14:14:32 +0200 |
| commit | d0de7f1219172a6b52e7a02a716aed8c1dc8aaa2 (patch) | |
| tree | 24a7d1e686a48357d9309c8a84835b82e8e13764 /haddock-api/src/Haddock/Backends | |
| parent | 067d52fd4be15a1842cbb05f42d9d482de0ad3a7 (diff) | |
Match changes in GHC for D4199
Removing HasSourceText and SourceTextX classes.
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index ee81a83c..2feb0fb9 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -1,4 +1,5 @@ {-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE TypeFamilies #-} ----------------------------------------------------------------------------- -- | -- Module : Haddock.Backends.Hoogle @@ -87,7 +88,7 @@ dropHsDocTy = f f (HsDocTy a _) = f $ unL a f x = x -outHsType :: (SourceTextX a, OutputableBndrId a) +outHsType :: (a ~ GhcPass p, OutputableBndrId a) => DynFlags -> HsType a -> String outHsType dflags = out dflags . dropHsDocTy |