From 9f356e8b53b3770293c8fd4e91fe1a2b40e42dee Mon Sep 17 00:00:00 2001
From: Richard Eisenberg <eir@cis.upenn.edu>
Date: Wed, 24 Jul 2013 13:15:59 +0100
Subject: Remove (error "synifyKind") to use WithinType, to allow haddock to
 process base.

---
 src/Haddock/Convert.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index d3bda268..0f7e5b9c 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -353,7 +353,7 @@ synifyTyLit (NumTyLit n) = HsNumTy n
 synifyTyLit (StrTyLit s) = HsStrTy s
 
 synifyKindSig :: Kind -> LHsKind Name
-synifyKindSig k = synifyType (error "synifyKind") k
+synifyKindSig k = synifyType WithinType k
 
 synifyInstHead :: ([TyVar], [PredType], Class, [Type]) ->
                   ([HsType Name], Name, [HsType Name])
-- 
cgit v1.2.3