diff options
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 5ce6aa24..0436cd3e 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -295,10 +295,9 @@ renameDecl d = case d of renameTyClD d = case d of - ForeignType _ _ _ -> error "renameTyClD" -- I'm guessing these can't be exported - -- ForeignType name a b -> do - -- name' <- renameL name - -- return (ForeignType name' a b) + ForeignType name a b -> do + name' <- renameL name + return (ForeignType name' a b) TyData x lcontext lname ltyvars _ k cons _ -> do lcontext' <- renameLContext lcontext |