diff options
| author | Alexander Biehl <abiehl@novomind.com> | 2018-02-01 11:06:52 +0100 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2018-02-01 14:58:18 +0100 |
| commit | fb8dd7488f956e42c1dae4d041ca2c7064fb3e78 (patch) | |
| tree | f449ce00214921dfde41a29c4eb97f6d5bae6f0b | |
| parent | 4157ea0637016b4b65386ddb3eb2b9bcf2aaa0b8 (diff) | |
Convert: Correct pass type
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 3 |
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) |