diff options
| author | Neil Mitchell <unknown> | 2008-06-26 09:45:09 +0000 |
|---|---|---|
| committer | Neil Mitchell <unknown> | 2008-06-26 09:45:09 +0000 |
| commit | c1d024baad54bf75a03ab596c87f29889fce1763 (patch) | |
| tree | 5c46f883a146f4fe751d4be842daf0b856d9f861 | |
| parent | 20827bbf0d713c06435120e44866ffdf81c9c4da (diff) | |
Add support for Hoogle writing ForeignImport/ForeignExport properly
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index aafd63a5..6033db11 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -88,6 +88,8 @@ ppExport (ExportDecl decl dc _) = doc dc ++ f (unL decl) where f (TyClD d@TyData{}) = ppData d f (TyClD d@ClassDecl{}) = ppClass d + f (ForD (ForeignImport name typ _)) = [out $ SigD $ TypeSig name typ] + f (ForD (ForeignExport name typ _)) = [out $ SigD $ TypeSig name typ] f decl = [out decl] ppExport _ = [] |