From 732ec0cf87e799bd4b8d198ffac7bd9a1b2a1d73 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 12 Apr 2008 14:02:18 +0000
Subject: Fix printing of data binders

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

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

diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs
index eae73597..843c11b8 100644
--- a/src/Haddock/GHC/Utils.hs
+++ b/src/Haddock/GHC/Utils.hs
@@ -39,6 +39,10 @@ isNameSym :: Name -> Bool
 isNameSym = isSymOcc . nameOccName
 
 
+isVarSym :: OccName -> Bool
+isVarSym = isLexVarSym . occNameFS
+
+
 getMainDeclBinder :: HsDecl name -> Maybe name
 getMainDeclBinder (TyClD d) = Just (tcdName d)
 getMainDeclBinder (ValD d)
-- 
cgit v1.2.3