aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Biehl <abiehl@novomind.com>2018-02-01 11:06:52 +0100
committerAlexander Biehl <alexbiehl@gmail.com>2018-02-01 14:58:18 +0100
commitfb8dd7488f956e42c1dae4d041ca2c7064fb3e78 (patch)
treef449ce00214921dfde41a29c4eb97f6d5bae6f0b
parent4157ea0637016b4b65386ddb3eb2b9bcf2aaa0b8 (diff)
Convert: Correct pass type
-rw-r--r--haddock-api/src/Haddock/Convert.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index b712660f..68f39cf2 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -1,4 +1,3 @@
-
{-# LANGUAGE CPP, PatternGuards #-}
-----------------------------------------------------------------------------
-- |
@@ -268,7 +267,7 @@ synifyTyCon coax tc
--
-- Which is entirely wrong (#548). We only want to display the *return* kind,
-- which this function obtains.
-synifyDataTyConReturnKind :: TyCon -> Maybe (LHsKind Name)
+synifyDataTyConReturnKind :: TyCon -> Maybe (LHsKind GhcRn)
synifyDataTyConReturnKind tc
= case splitFunTys (tyConKind tc) of
(_, ret_kind)