aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorNeil Mitchell <unknown>2008-09-11 14:56:07 +0000
committerNeil Mitchell <unknown>2008-09-11 14:56:07 +0000
commit10e47f35af686b7a2eaaf2b3422cf98d77734f1c (patch)
tree2a755b9bca8e1618df526d1f5a6f7c7cd09c46e7 /src
parent75b743d80618a173056d3ca308843b9eb4683b82 (diff)
Do not wrap __ in brackets
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Hoogle.hs2
1 files changed, 1 insertions, 1 deletions
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