aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorNeil Mitchell <unknown>2008-06-26 09:45:09 +0000
committerNeil Mitchell <unknown>2008-06-26 09:45:09 +0000
commitc1d024baad54bf75a03ab596c87f29889fce1763 (patch)
tree5c46f883a146f4fe751d4be842daf0b856d9f861 /src/Haddock/Backends
parent20827bbf0d713c06435120e44866ffdf81c9c4da (diff)
Add support for Hoogle writing ForeignImport/ForeignExport properly
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Hoogle.hs2
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 _ = []