From 10e47f35af686b7a2eaaf2b3422cf98d77734f1c Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Thu, 11 Sep 2008 14:56:07 +0000
Subject: Do not wrap __ in brackets

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

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 462d59c9..044c136d 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -73,7 +73,7 @@ typeSig name flds = operator name ++ " :: " ++ concat (intersperse " -> " flds)
 
 
 operator :: String -> String
-operator (x:xs) | not (isAlphaNum x) && x `notElem` " ([{" = "(" ++ x:xs ++ ")"
+operator (x:xs) | not (isAlphaNum x) && x `notElem` "_' ([{" = "(" ++ x:xs ++ ")"
 operator x = x
 
 
-- 
cgit v1.2.3