diff options
| author | David Waern <unknown> | 2007-08-17 14:53:04 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-08-17 14:53:04 +0000 |
| commit | bedd431c75f7660655347d9210dc5043b83232e1 (patch) | |
| tree | d2089de29fb5b783cf5c3e9c4b055bc891afffcd /src/Haddock/Utils.hs | |
| parent | 93d806105dd027f4d31a76e2bd2410001fe10b29 (diff) | |
Factor out typechecking phase into Haddock.Typecheck
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index a7f5f8a9..52618c30 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -20,8 +20,7 @@ module Haddock.Utils ( -- * Miscellaneous utilities getProgramName, bye, die, dieMsg, noDieMsg, mapSnd, mapMaybeM, escapeStr, - isConSym, isVarSym, nameOccString, moduleString, mkModuleNoPkg, - + -- * HTML cross reference mapping html_xrefs_ref, @@ -231,18 +230,6 @@ escapeStr = flip escapeString unreserved escapeStr = escapeURIString isUnreserved #endif --- there should be a better way to check this using the GHC API -isConSym n = head (nameOccString n) == ':' -isVarSym n = fstChar /= '_' && not (isConSym n) && (not . isLetter) fstChar - where fstChar = head (nameOccString n) - -nameOccString = occNameString . nameOccName - -moduleString :: Module -> String -moduleString = moduleNameString . moduleName - -mkModuleNoPkg :: String -> Module -mkModuleNoPkg str = mkModule (stringToPackageId "") (mkModuleName str) ----------------------------------------------------------------------------- -- HTML cross references |