From c1d024baad54bf75a03ab596c87f29889fce1763 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Thu, 26 Jun 2008 09:45:09 +0000
Subject: Add support for Hoogle writing ForeignImport/ForeignExport properly

---
 src/Haddock/Backends/Hoogle.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

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 _ = []
 
-- 
cgit v1.2.3