diff options
| author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2014-09-14 14:08:35 +0200 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-12-12 06:37:42 +0000 |
| commit | 08332912f745dbd48c6e5fbf0c35e9828600b4db (patch) | |
| tree | cf9f18c515f7f0656b8c031751acab01dd342434 /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | cb8921ec1d6bc1b10833536457a9e25bad278a52 (diff) | |
Followup changes to addition of -fwarn-context-quantification (GHC Trac #4426)
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index 3ea73db5..c8085fa9 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -134,6 +134,7 @@ ppSig dflags (TypeSig names sig) prettyNames = intercalate ", " $ map (out dflags) names typ = case unL sig of HsForAllTy Explicit a b c -> HsForAllTy Implicit a b c + HsForAllTy Qualified a b c -> HsForAllTy Implicit a b c x -> x ppSig _ _ = [] |