aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Haddock/Backends/Hoogle.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 91f4225d..635cc9bf 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -86,12 +86,8 @@ ppData :: TyClDecl Name -> [String]
ppData x = showData x{tcdCons=[],tcdDerivs=Nothing} :
concatMap (ppCtor x . unL) (tcdCons x)
where
- showData = unwords . f . words . out
-
- -- note: tcdND always seems to not match NewType (BUG?)
- f ("data":xs) | tcdND x == NewType = f ("newtype":xs)
- f xs | ["="] `isSuffixOf` xs = init xs
- f xs = xs
+ -- GHC gives out "data Bar =", we want to delete the equals
+ showData = reverse . dropWhile (`elem` " =") . reverse . out
ppCtor :: TyClDecl Name -> ConDecl Name -> [String]