From dd31867c5cbfacda8dfb18acf8fba1923c5ddff1 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Mon, 18 Aug 2008 12:52:43 +0000
Subject: Use the same method to put out signatures as class methods in the
 Hoogle backend

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

(limited to 'src')

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index c8336352..6847db92 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -109,7 +109,7 @@ ppSynonym x = [out x]
 -- note: does not yet output documentation for class methods
 ppClass :: TyClDecl Name -> [String]
 ppClass x = out x{tcdSigs=[]} :
-            map (out . addContext . unL) (tcdSigs x)
+            concatMap (ppSig . addContext . unL) (tcdSigs x)
     where
         addContext (TypeSig name (L l sig)) = TypeSig name (L l $ f sig)
         f (HsForAllTy a b con d) = HsForAllTy a b (reL $ context : unL con) d
-- 
cgit v1.2.3