aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Rename.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
-rw-r--r--src/Haddock/Interface/Rename.hs6
1 files changed, 6 insertions, 0 deletions
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