From 4866f38861d7ebc578dcc5754e40b51fffca8b2f Mon Sep 17 00:00:00 2001
From: David Waern <davve@dtek.chalmers.se>
Date: Sat, 29 Sep 2007 14:01:32 +0000
Subject: FIX: prefix types used as operators should be quoted

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

(limited to 'src/Haddock/GHC/Utils.hs')

diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs
index 8e70057f..26860116 100644
--- a/src/Haddock/GHC/Utils.hs
+++ b/src/Haddock/GHC/Utils.hs
@@ -52,6 +52,8 @@ modulePkgStr = packageIdString . modulePackageId
 
 -- misc
 
+isNameSymOcc = isSymOcc . nameOccName
+
 
 -- there should be a better way to check this using the GHC API
 isConSym n = head (nameOccString n) == ':'
-- 
cgit v1.2.3