From 27e1a90acd9f0e2b7b6d5998247f8553fca62ea8 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 28 Jul 2009 14:27:04 +0000
Subject: follow changes in GHC's ForeignType

---
 src/Haddock/Interface/Rename.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 50e9327e..8145d63a 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -312,9 +312,15 @@ renameLTyClD (L loc d) = return . L loc =<< renameTyClD d
 
 renameTyClD :: TyClDecl Name -> RnM (TyClDecl DocName)
 renameTyClD d = case d of
+#if __GLASGOW_HASKELL__ >= 611
+  ForeignType lname b -> do
+    lname' <- renameL lname
+    return (ForeignType lname' b)
+#else
   ForeignType lname a b -> do
     lname' <- renameL lname
     return (ForeignType lname' a b)
+#endif
 
   TyFamily flav lname ltyvars kind -> do
     lname'   <- renameL lname
-- 
cgit v1.2.3