diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-09-29 14:02:26 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-09-29 14:02:26 +0000 |
| commit | e390c635fc817df5da56c67a72988fe77f2b0318 (patch) | |
| tree | 41a8ec2ef5843215af0bfdb0ba6d72b083a57ae6 /src/Haddock/Backends/Html.hs | |
| parent | 4866f38861d7ebc578dcc5754e40b51fffca8b2f (diff) | |
Use isSymOcc from OccName instead of isConSym
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index d3e4478c..e0bf0d20 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1125,10 +1125,10 @@ ppDataHead :: Bool -> Name -> [Name] -> Html ppDataHead summary name tyvars -- (a :+: b) c d - | isConSym name && length tyvars > 2 = parens first2 <+> rest + | isNameSymOcc name && length tyvars > 2 = parens first2 <+> rest -- a :+: b - | isConSym name = first2 + | isNameSymOcc name = first2 -- Would like a case for: -- a `O` b |