From fb8dd7488f956e42c1dae4d041ca2c7064fb3e78 Mon Sep 17 00:00:00 2001
From: Alexander Biehl <abiehl@novomind.com>
Date: Thu, 1 Feb 2018 11:06:52 +0100
Subject: Convert: Correct pass type

---
 haddock-api/src/Haddock/Convert.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'haddock-api')

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)
-- 
cgit v1.2.3