aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-05-14 20:40:26 +0000
committerDavid Waern <david.waern@gmail.com>2010-05-14 20:40:26 +0000
commita3a179d932ede550984cbcb409930707ac91d675 (patch)
tree64b90bae5e790e0f29dced6edb3330ccc714540e /src
parent480bb82eba5dbf783edb17b46e230af14da922fd (diff)
Comment fixes
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 6329d22b..95cd4acd 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -180,7 +180,7 @@ render flags ifaces installedIfaces = do
visibleIfaces = [ i | i <- ifaces, OptHide `notElem` ifaceOptions i ]
- -- *all* visible interfaces including external package modules
+ -- *All* visible interfaces including external package modules.
allIfaces = map toInstalledIface ifaces ++ installedIfaces
allVisibleIfaces = [ i | i <- allIfaces, OptHide `notElem` instOptions i ]
@@ -188,7 +188,7 @@ render flags ifaces installedIfaces = do
packageStr = Just (modulePackageString packageMod)
(pkgName,pkgVer) = modulePackageInfo packageMod
- -- which HTML rendering to use
+ -- Which HTML rendering to use.
pick htmlF xhtmlF = if (Flag_Xhtml `elem` flags) then xhtmlF else htmlF
ppHtmlIndex = pick Html.ppHtmlIndex Xhtml.ppHtmlIndex
ppHtmlHelpFiles = pick Html.ppHtmlHelpFiles Xhtml.ppHtmlHelpFiles