diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-09-29 14:01:32 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-09-29 14:01:32 +0000 |
| commit | 4866f38861d7ebc578dcc5754e40b51fffca8b2f (patch) | |
| tree | 419c1a14962e665d52f4f121371facdd237e02fe /src/Haddock/GHC | |
| parent | b41afcbad12d337e268ca5464a4e6d4311708fef (diff) | |
FIX: prefix types used as operators should be quoted
Diffstat (limited to 'src/Haddock/GHC')
| -rw-r--r-- | src/Haddock/GHC/Utils.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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) == ':' |