diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-07-28 14:27:04 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-07-28 14:27:04 +0000 |
| commit | 27e1a90acd9f0e2b7b6d5998247f8553fca62ea8 (patch) | |
| tree | 1fd6c60d78e91ee7b9d02028f537379a6fe76de3 | |
| parent | 94bb83b07c785c7bf2a43c7082680677483bfbfa (diff) | |
follow changes in GHC's ForeignType
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 6 |
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 |