<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->
<title>src/Haddock/Backends/Html.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-2"></a><span class='hs-comment'>-- |</span>
<a name="line-3"></a><span class='hs-comment'>-- Module : Haddock.Backends.Html</span>
<a name="line-4"></a><span class='hs-comment'>-- Copyright : (c) Simon Marlow 2003-2006,</span>
<a name="line-5"></a><span class='hs-comment'>-- David Waern 2006-2009</span>
<a name="line-6"></a><span class='hs-comment'>-- License : BSD-like</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- Maintainer : haddock@projects.haskell.org</span>
<a name="line-9"></a><span class='hs-comment'>-- Stability : experimental</span>
<a name="line-10"></a><span class='hs-comment'>-- Portability : portable</span>
<a name="line-11"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-12"></a>
<a name="line-13"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Backends</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> <span class='hs-layout'>(</span>
<a name="line-14"></a> <span class='hs-varid'>ppHtml</span><span class='hs-layout'>,</span> <span class='hs-varid'>copyHtmlBits</span><span class='hs-layout'>,</span>
<a name="line-15"></a> <span class='hs-varid'>ppHtmlIndex</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppHtmlContents</span><span class='hs-layout'>,</span>
<a name="line-16"></a> <span class='hs-varid'>ppHtmlHelpFiles</span>
<a name="line-17"></a><span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-18"></a>
<a name="line-19"></a>
<a name="line-20"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Prelude</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span><span class='hs-varid'>div</span><span class='hs-layout'>)</span>
<a name="line-21"></a>
<a name="line-22"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Backends</span><span class='hs-varop'>.</span><span class='hs-conid'>DevHelp</span>
<a name="line-23"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Backends</span><span class='hs-varop'>.</span><span class='hs-conid'>HH</span>
<a name="line-24"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Backends</span><span class='hs-varop'>.</span><span class='hs-conid'>HH2</span>
<a name="line-25"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>ModuleTree</span>
<a name="line-26"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
<a name="line-27"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Version</span>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span>
<a name="line-29"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span> <span class='hs-varid'>name</span><span class='hs-layout'>,</span> <span class='hs-varid'>title</span><span class='hs-layout'>,</span> <span class='hs-varid'>p</span> <span class='hs-layout'>)</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Html</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Haddock</span><span class='hs-varop'>.</span><span class='hs-conid'>GhcUtils</span>
<a name="line-32"></a>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Exception</span> <span class='hs-layout'>(</span> <span class='hs-varid'>bracket</span> <span class='hs-layout'>)</span>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span> <span class='hs-varid'>when</span><span class='hs-layout'>,</span> <span class='hs-varid'>unless</span><span class='hs-layout'>,</span> <span class='hs-varid'>join</span> <span class='hs-layout'>)</span>
<a name="line-35"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Char</span> <span class='hs-layout'>(</span> <span class='hs-varid'>toUpper</span> <span class='hs-layout'>)</span>
<a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span> <span class='hs-layout'>(</span> <span class='hs-varid'>sortBy</span><span class='hs-layout'>,</span> <span class='hs-varid'>groupBy</span> <span class='hs-layout'>)</span>
<a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span>
<a name="line-38"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Marshal</span><span class='hs-varop'>.</span><span class='hs-conid'>Alloc</span> <span class='hs-layout'>(</span> <span class='hs-varid'>allocaBytes</span> <span class='hs-layout'>)</span>
<a name="line-39"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span> <span class='hs-conid'>IOMode</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>hClose</span><span class='hs-layout'>,</span> <span class='hs-varid'>hGetBuf</span><span class='hs-layout'>,</span> <span class='hs-varid'>hPutBuf</span><span class='hs-layout'>,</span> <span class='hs-varid'>openFile</span> <span class='hs-layout'>)</span>
<a name="line-40"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Directory</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span> <span class='hs-varid'>copyFile</span> <span class='hs-layout'>)</span>
<a name="line-41"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Map</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Map</span> <span class='hs-layout'>)</span>
<a name="line-42"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Map</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Map</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Map</span> <span class='hs-layout'>)</span>
<a name="line-43"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Function</span>
<a name="line-44"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Ord</span> <span class='hs-layout'>(</span> <span class='hs-varid'>comparing</span> <span class='hs-layout'>)</span>
<a name="line-45"></a>
<a name="line-46"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>GHC</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span> <span class='hs-conid'>NoLink</span><span class='hs-layout'>,</span> <span class='hs-varid'>moduleInfo</span> <span class='hs-layout'>)</span>
<a name="line-47"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Name</span>
<a name="line-48"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Module</span>
<a name="line-49"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>RdrName</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Qual</span><span class='hs-layout'>,</span> <span class='hs-varid'>is_explicit</span> <span class='hs-layout'>)</span>
<a name="line-50"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>FastString</span> <span class='hs-layout'>(</span> <span class='hs-varid'>unpackFS</span> <span class='hs-layout'>)</span>
<a name="line-51"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>BasicTypes</span> <span class='hs-layout'>(</span> <span class='hs-conid'>IPName</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Boxity</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span>
<a name="line-52"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Outputable</span> <span class='hs-layout'>(</span> <span class='hs-varid'>ppr</span><span class='hs-layout'>,</span> <span class='hs-varid'>showSDoc</span><span class='hs-layout'>,</span> <span class='hs-conid'>Outputable</span> <span class='hs-layout'>)</span>
<a name="line-53"></a>
<a name="line-54"></a><a name="SourceURLs"></a><span class='hs-comment'>-- the base, module and entity URLs for the source code and wiki links.</span>
<a name="line-55"></a><a name="SourceURLs"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>SourceURLs</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-56"></a><a name="WikiURLs"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>WikiURLs</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-57"></a>
<a name="line-58"></a>
<a name="line-59"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span>
<a name="line-60"></a><span class='hs-comment'>-- Generating HTML documentation</span>
<a name="line-61"></a>
<a name="line-62"></a><a name="ppHtml"></a><span class='hs-definition'>ppHtml</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-63"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- package</span>
<a name="line-64"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Interface</span><span class='hs-keyglyph'>]</span>
<a name="line-65"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- destination directory</span>
<a name="line-66"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>RdrName</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- prologue text, maybe</span>
<a name="line-67"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- the Html Help format (--html-help)</span>
<a name="line-68"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SourceURLs</span> <span class='hs-comment'>-- the source URL (--source)</span>
<a name="line-69"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span> <span class='hs-comment'>-- the wiki URL (--wiki)</span>
<a name="line-70"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- the contents URL (--use-contents)</span>
<a name="line-71"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- the index URL (--use-index)</span>
<a name="line-72"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- whether to use unicode in output (--use-unicode)</span>
<a name="line-73"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-74"></a>
<a name="line-75"></a><span class='hs-definition'>ppHtml</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>ifaces</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>prologue</span> <span class='hs-varid'>maybe_html_help_format</span>
<a name="line-76"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-77"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_index_url</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-78"></a> <span class='hs-keyword'>let</span>
<a name="line-79"></a> <span class='hs-varid'>visible_ifaces</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filter</span> <span class='hs-varid'>visible</span> <span class='hs-varid'>ifaces</span>
<a name="line-80"></a> <span class='hs-varid'>visible</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>OptHide</span> <span class='hs-varop'>`notElem`</span> <span class='hs-varid'>ifaceOptions</span> <span class='hs-varid'>i</span>
<a name="line-81"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isJust</span> <span class='hs-varid'>maybe_contents_url</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-82"></a> <span class='hs-varid'>ppHtmlContents</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span>
<a name="line-83"></a> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-varid'>maybe_index_url</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-84"></a> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>toInstalledIface</span> <span class='hs-varid'>visible_ifaces</span><span class='hs-layout'>)</span>
<a name="line-85"></a> <span class='hs-conid'>False</span> <span class='hs-comment'>-- we don't want to display the packages in a single-package contents</span>
<a name="line-86"></a> <span class='hs-varid'>prologue</span>
<a name="line-87"></a>
<a name="line-88"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isJust</span> <span class='hs-varid'>maybe_index_url</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-89"></a> <span class='hs-varid'>ppHtmlIndex</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>maybe_html_help_format</span>
<a name="line-90"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-91"></a> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>toInstalledIface</span> <span class='hs-varid'>visible_ifaces</span><span class='hs-layout'>)</span>
<a name="line-92"></a>
<a name="line-93"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isJust</span> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>isJust</span> <span class='hs-varid'>maybe_index_url</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-94"></a> <span class='hs-varid'>ppHtmlHelpFiles</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>ifaces</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-conid'>[]</span>
<a name="line-95"></a>
<a name="line-96"></a> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppHtmlModule</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span>
<a name="line-97"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-98"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_index_url</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>visible_ifaces</span>
<a name="line-99"></a>
<a name="line-100"></a><a name="ppHtmlHelpFiles"></a><span class='hs-definition'>ppHtmlHelpFiles</span>
<a name="line-101"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- doctitle</span>
<a name="line-102"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- package</span>
<a name="line-103"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Interface</span><span class='hs-keyglyph'>]</span>
<a name="line-104"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- destination directory</span>
<a name="line-105"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- the Html Help format (--html-help)</span>
<a name="line-106"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- external packages paths</span>
<a name="line-107"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-108"></a><span class='hs-definition'>ppHtmlHelpFiles</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>ifaces</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-varid'>pkg_paths</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-109"></a> <span class='hs-keyword'>let</span>
<a name="line-110"></a> <span class='hs-varid'>visible_ifaces</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filter</span> <span class='hs-varid'>visible</span> <span class='hs-varid'>ifaces</span>
<a name="line-111"></a> <span class='hs-varid'>visible</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>OptHide</span> <span class='hs-varop'>`notElem`</span> <span class='hs-varid'>ifaceOptions</span> <span class='hs-varid'>i</span>
<a name="line-112"></a>
<a name="line-113"></a> <span class='hs-comment'>-- Generate index and contents page for Html Help if requested</span>
<a name="line-114"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-keyword'>of</span>
<a name="line-115"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-116"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"mshelp"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppHHProject</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>visible_ifaces</span> <span class='hs-varid'>pkg_paths</span>
<a name="line-117"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"mshelp2"</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-118"></a> <span class='hs-varid'>ppHH2Files</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>visible_ifaces</span> <span class='hs-varid'>pkg_paths</span>
<a name="line-119"></a> <span class='hs-varid'>ppHH2Collection</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span>
<a name="line-120"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"devhelp"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppDevHelpFile</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>visible_ifaces</span>
<a name="line-121"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>format</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fail</span> <span class='hs-layout'>(</span><span class='hs-str'>"The "</span><span class='hs-varop'>++</span><span class='hs-varid'>format</span><span class='hs-varop'>++</span><span class='hs-str'>" format is not implemented"</span><span class='hs-layout'>)</span>
<a name="line-122"></a>
<a name="line-123"></a><a name="copyFile"></a><span class='hs-definition'>copyFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-124"></a><span class='hs-definition'>copyFile</span> <span class='hs-varid'>fromFPath</span> <span class='hs-varid'>toFPath</span> <span class='hs-keyglyph'>=</span>
<a name="line-125"></a> <span class='hs-layout'>(</span><span class='hs-varid'>bracket</span> <span class='hs-layout'>(</span><span class='hs-varid'>openFile</span> <span class='hs-varid'>fromFPath</span> <span class='hs-conid'>ReadMode</span><span class='hs-layout'>)</span> <span class='hs-varid'>hClose</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>hFrom</span> <span class='hs-keyglyph'>-></span>
<a name="line-126"></a> <span class='hs-varid'>bracket</span> <span class='hs-layout'>(</span><span class='hs-varid'>openFile</span> <span class='hs-varid'>toFPath</span> <span class='hs-conid'>WriteMode</span><span class='hs-layout'>)</span> <span class='hs-varid'>hClose</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>hTo</span> <span class='hs-keyglyph'>-></span>
<a name="line-127"></a> <span class='hs-varid'>allocaBytes</span> <span class='hs-varid'>bufferSize</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>buffer</span> <span class='hs-keyglyph'>-></span>
<a name="line-128"></a> <span class='hs-varid'>copyContents</span> <span class='hs-varid'>hFrom</span> <span class='hs-varid'>hTo</span> <span class='hs-varid'>buffer</span><span class='hs-layout'>)</span>
<a name="line-129"></a> <span class='hs-keyword'>where</span>
<a name="line-130"></a> <span class='hs-varid'>bufferSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1024</span>
<a name="line-131"></a>
<a name="line-132"></a> <span class='hs-varid'>copyContents</span> <span class='hs-varid'>hFrom</span> <span class='hs-varid'>hTo</span> <span class='hs-varid'>buffer</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-133"></a> <span class='hs-varid'>count</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>hGetBuf</span> <span class='hs-varid'>hFrom</span> <span class='hs-varid'>buffer</span> <span class='hs-varid'>bufferSize</span>
<a name="line-134"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>count</span> <span class='hs-varop'>></span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-135"></a> <span class='hs-varid'>hPutBuf</span> <span class='hs-varid'>hTo</span> <span class='hs-varid'>buffer</span> <span class='hs-varid'>count</span>
<a name="line-136"></a> <span class='hs-varid'>copyContents</span> <span class='hs-varid'>hFrom</span> <span class='hs-varid'>hTo</span> <span class='hs-varid'>buffer</span>
<a name="line-137"></a>
<a name="line-138"></a>
<a name="line-139"></a><a name="copyHtmlBits"></a><span class='hs-definition'>copyHtmlBits</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-140"></a><span class='hs-definition'>copyHtmlBits</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>libdir</span> <span class='hs-varid'>maybe_css</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-141"></a> <span class='hs-keyword'>let</span>
<a name="line-142"></a> <span class='hs-varid'>libhtmldir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>libdir</span><span class='hs-layout'>,</span> <span class='hs-str'>"html"</span><span class='hs-keyglyph'>]</span>
<a name="line-143"></a> <span class='hs-varid'>css_file</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_css</span> <span class='hs-keyword'>of</span>
<a name="line-144"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>libhtmldir</span><span class='hs-layout'>,</span> <span class='hs-varid'>cssFile</span><span class='hs-keyglyph'>]</span>
<a name="line-145"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>f</span>
<a name="line-146"></a> <span class='hs-varid'>css_destination</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>cssFile</span><span class='hs-keyglyph'>]</span>
<a name="line-147"></a> <span class='hs-varid'>copyLibFile</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-148"></a> <span class='hs-varid'>copyFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>libhtmldir</span><span class='hs-layout'>,</span> <span class='hs-varid'>f</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>f</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-149"></a> <span class='hs-varid'>copyFile</span> <span class='hs-varid'>css_file</span> <span class='hs-varid'>css_destination</span>
<a name="line-150"></a> <span class='hs-varid'>mapM_</span> <span class='hs-varid'>copyLibFile</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>iconFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>plusFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>minusFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>jsFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>framesFile</span> <span class='hs-keyglyph'>]</span>
<a name="line-151"></a>
<a name="line-152"></a><a name="footer"></a><span class='hs-definition'>footer</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HtmlTable</span>
<a name="line-153"></a><span class='hs-definition'>footer</span> <span class='hs-keyglyph'>=</span>
<a name="line-154"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"botbar"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-155"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Produced by"</span> <span class='hs-varop'><+></span>
<a name="line-156"></a> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>projectUrl</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>projectName</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span>
<a name="line-157"></a> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-str'>"version "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>projectVersion</span><span class='hs-layout'>)</span>
<a name="line-158"></a> <span class='hs-layout'>)</span>
<a name="line-159"></a>
<a name="line-160"></a><a name="srcButton"></a><span class='hs-definition'>srcButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SourceURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-161"></a><span class='hs-definition'>srcButton</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>src_base_url</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span>
<a name="line-162"></a> <span class='hs-varid'>topButBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>src_base_url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Source code"</span><span class='hs-layout'>)</span>
<a name="line-163"></a>
<a name="line-164"></a><span class='hs-definition'>srcButton</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>src_module_url</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-165"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>spliceURL</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>ifaceOrigFilename</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span>
<a name="line-166"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>ifaceMod</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span> <span class='hs-conid'>Nothing</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>src_module_url</span>
<a name="line-167"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>topButBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Source code"</span><span class='hs-layout'>)</span>
<a name="line-168"></a>
<a name="line-169"></a><span class='hs-definition'>srcButton</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span>
<a name="line-170"></a> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-171"></a>
<a name="line-172"></a><a name="spliceURL"></a><span class='hs-definition'>spliceURL</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Name</span> <span class='hs-keyglyph'>-></span>
<a name="line-173"></a> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-174"></a><span class='hs-definition'>spliceURL</span> <span class='hs-varid'>maybe_file</span> <span class='hs-varid'>maybe_mod</span> <span class='hs-varid'>maybe_name</span> <span class='hs-varid'>maybe_loc</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>run</span> <span class='hs-varid'>url</span>
<a name="line-175"></a> <span class='hs-keyword'>where</span>
<a name="line-176"></a> <span class='hs-varid'>file</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-str'>""</span> <span class='hs-varid'>maybe_file</span>
<a name="line-177"></a> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_mod</span> <span class='hs-keyword'>of</span>
<a name="line-178"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>""</span>
<a name="line-179"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>moduleString</span> <span class='hs-varid'>m</span>
<a name="line-180"></a>
<a name="line-181"></a> <span class='hs-layout'>(</span><span class='hs-varid'>name</span><span class='hs-layout'>,</span> <span class='hs-varid'>kind</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-182"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_name</span> <span class='hs-keyword'>of</span>
<a name="line-183"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-str'>""</span><span class='hs-layout'>,</span><span class='hs-str'>""</span><span class='hs-layout'>)</span>
<a name="line-184"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isValOcc</span> <span class='hs-layout'>(</span><span class='hs-varid'>nameOccName</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>escapeStr</span> <span class='hs-layout'>(</span><span class='hs-varid'>getOccString</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-str'>"v"</span><span class='hs-layout'>)</span>
<a name="line-185"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>escapeStr</span> <span class='hs-layout'>(</span><span class='hs-varid'>getOccString</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-str'>"t"</span><span class='hs-layout'>)</span>
<a name="line-186"></a>
<a name="line-187"></a> <span class='hs-varid'>line</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_loc</span> <span class='hs-keyword'>of</span>
<a name="line-188"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>""</span>
<a name="line-189"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>span_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>show</span> <span class='hs-varop'>$</span> <span class='hs-varid'>srcSpanStartLine</span> <span class='hs-varid'>span_</span>
<a name="line-190"></a>
<a name="line-191"></a> <span class='hs-varid'>run</span> <span class='hs-str'>""</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>""</span>
<a name="line-192"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'M'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mdl</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-193"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'F'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>file</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-194"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'N'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>name</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-195"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'K'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>kind</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-196"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'L'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>line</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-197"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"%"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-198"></a>
<a name="line-199"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'M'</span><span class='hs-conop'>:</span><span class='hs-chr'>'O'</span><span class='hs-conop'>:</span><span class='hs-chr'>'D'</span><span class='hs-conop'>:</span><span class='hs-chr'>'U'</span><span class='hs-conop'>:</span><span class='hs-chr'>'L'</span><span class='hs-conop'>:</span><span class='hs-chr'>'E'</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mdl</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-200"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'F'</span><span class='hs-conop'>:</span><span class='hs-chr'>'I'</span><span class='hs-conop'>:</span><span class='hs-chr'>'L'</span><span class='hs-conop'>:</span><span class='hs-chr'>'E'</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>file</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-201"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'N'</span><span class='hs-conop'>:</span><span class='hs-chr'>'A'</span><span class='hs-conop'>:</span><span class='hs-chr'>'M'</span><span class='hs-conop'>:</span><span class='hs-chr'>'E'</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>name</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-202"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'K'</span><span class='hs-conop'>:</span><span class='hs-chr'>'I'</span><span class='hs-conop'>:</span><span class='hs-chr'>'N'</span><span class='hs-conop'>:</span><span class='hs-chr'>'D'</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>kind</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-203"></a>
<a name="line-204"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'M'</span><span class='hs-conop'>:</span><span class='hs-chr'>'O'</span><span class='hs-conop'>:</span><span class='hs-chr'>'D'</span><span class='hs-conop'>:</span><span class='hs-chr'>'U'</span><span class='hs-conop'>:</span><span class='hs-chr'>'L'</span><span class='hs-conop'>:</span><span class='hs-chr'>'E'</span><span class='hs-conop'>:</span><span class='hs-chr'>'/'</span><span class='hs-conop'>:</span><span class='hs-chr'>'.'</span><span class='hs-conop'>:</span><span class='hs-chr'>'/'</span><span class='hs-conop'>:</span><span class='hs-varid'>c</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-205"></a> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>if</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-chr'>'.'</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>c</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varid'>mdl</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-206"></a>
<a name="line-207"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'F'</span><span class='hs-conop'>:</span><span class='hs-chr'>'I'</span><span class='hs-conop'>:</span><span class='hs-chr'>'L'</span><span class='hs-conop'>:</span><span class='hs-chr'>'E'</span><span class='hs-conop'>:</span><span class='hs-chr'>'/'</span><span class='hs-conop'>:</span><span class='hs-chr'>'/'</span><span class='hs-conop'>:</span><span class='hs-chr'>'/'</span><span class='hs-conop'>:</span><span class='hs-varid'>c</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-208"></a> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>if</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-chr'>'/'</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>c</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varid'>file</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-209"></a>
<a name="line-210"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-chr'>'%'</span><span class='hs-conop'>:</span><span class='hs-chr'>'{'</span><span class='hs-conop'>:</span><span class='hs-chr'>'L'</span><span class='hs-conop'>:</span><span class='hs-chr'>'I'</span><span class='hs-conop'>:</span><span class='hs-chr'>'N'</span><span class='hs-conop'>:</span><span class='hs-chr'>'E'</span><span class='hs-conop'>:</span><span class='hs-chr'>'}'</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>line</span> <span class='hs-varop'>++</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-211"></a>
<a name="line-212"></a> <span class='hs-varid'>run</span> <span class='hs-layout'>(</span><span class='hs-varid'>c</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>c</span> <span class='hs-conop'>:</span> <span class='hs-varid'>run</span> <span class='hs-varid'>rest</span>
<a name="line-213"></a>
<a name="line-214"></a><a name="wikiButton"></a><span class='hs-definition'>wikiButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>WikiURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-215"></a><span class='hs-definition'>wikiButton</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>wiki_base_url</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span>
<a name="line-216"></a> <span class='hs-varid'>topButBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>wiki_base_url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"User Comments"</span><span class='hs-layout'>)</span>
<a name="line-217"></a>
<a name="line-218"></a><span class='hs-definition'>wikiButton</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>wiki_module_url</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-219"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>spliceURL</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-conid'>Nothing</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>wiki_module_url</span>
<a name="line-220"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>topButBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"User Comments"</span><span class='hs-layout'>)</span>
<a name="line-221"></a>
<a name="line-222"></a><span class='hs-definition'>wikiButton</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span>
<a name="line-223"></a> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-224"></a>
<a name="line-225"></a><a name="contentsButton"></a><span class='hs-definition'>contentsButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-226"></a><span class='hs-definition'>contentsButton</span> <span class='hs-varid'>maybe_contents_url</span>
<a name="line-227"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topButBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Contents"</span><span class='hs-layout'>)</span>
<a name="line-228"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybe</span> <span class='hs-varid'>contentsHtmlFile</span> <span class='hs-varid'>id</span> <span class='hs-varid'>maybe_contents_url</span>
<a name="line-229"></a>
<a name="line-230"></a><a name="indexButton"></a><span class='hs-definition'>indexButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-231"></a><span class='hs-definition'>indexButton</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-232"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topButBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Index"</span><span class='hs-layout'>)</span>
<a name="line-233"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybe</span> <span class='hs-varid'>indexHtmlFile</span> <span class='hs-varid'>id</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-234"></a>
<a name="line-235"></a><a name="simpleHeader"></a><span class='hs-definition'>simpleHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-236"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SourceURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-237"></a><span class='hs-definition'>simpleHeader</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-238"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-keyglyph'>=</span>
<a name="line-239"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"topbar"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-240"></a> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-241"></a> <span class='hs-layout'>(</span><span class='hs-varid'>td</span> <span class='hs-varop'><<</span>
<a name="line-242"></a> <span class='hs-varid'>image</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-str'>"haskell_icon.gif"</span><span class='hs-layout'>,</span> <span class='hs-varid'>width</span> <span class='hs-str'>"16"</span><span class='hs-layout'>,</span> <span class='hs-varid'>height</span> <span class='hs-num'>16</span><span class='hs-layout'>,</span> <span class='hs-varid'>alt</span> <span class='hs-str'>" "</span> <span class='hs-keyglyph'>]</span>
<a name="line-243"></a> <span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-244"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"title"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>doctitle</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-245"></a> <span class='hs-varid'>srcButton</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-conid'>Nothing</span> <span class='hs-varop'><-></span>
<a name="line-246"></a> <span class='hs-varid'>wikiButton</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-conid'>Nothing</span> <span class='hs-varop'><-></span>
<a name="line-247"></a> <span class='hs-varid'>contentsButton</span> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varop'><-></span> <span class='hs-varid'>indexButton</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-248"></a> <span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-249"></a>
<a name="line-250"></a><a name="pageHeader"></a><span class='hs-definition'>pageHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-251"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SourceURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span>
<a name="line-252"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-253"></a><span class='hs-definition'>pageHeader</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>doctitle</span>
<a name="line-254"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-255"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_index_url</span> <span class='hs-keyglyph'>=</span>
<a name="line-256"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"topbar"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-257"></a> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-258"></a> <span class='hs-layout'>(</span><span class='hs-varid'>td</span> <span class='hs-varop'><<</span>
<a name="line-259"></a> <span class='hs-varid'>image</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-str'>"haskell_icon.gif"</span><span class='hs-layout'>,</span> <span class='hs-varid'>width</span> <span class='hs-str'>"16"</span><span class='hs-layout'>,</span> <span class='hs-varid'>height</span> <span class='hs-num'>16</span><span class='hs-layout'>,</span> <span class='hs-varid'>alt</span> <span class='hs-str'>" "</span><span class='hs-keyglyph'>]</span>
<a name="line-260"></a> <span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-261"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"title"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>doctitle</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-262"></a> <span class='hs-varid'>srcButton</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-263"></a> <span class='hs-varid'>wikiButton</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>ifaceMod</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-264"></a> <span class='hs-varid'>contentsButton</span> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varop'><-></span>
<a name="line-265"></a> <span class='hs-varid'>indexButton</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-266"></a> <span class='hs-layout'>)</span>
<a name="line-267"></a> <span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-268"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"modulebar"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-269"></a> <span class='hs-layout'>(</span><span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-270"></a> <span class='hs-layout'>(</span><span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>font</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>size</span> <span class='hs-str'>"6"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-271"></a> <span class='hs-varid'>moduleInfo</span> <span class='hs-varid'>iface</span>
<a name="line-272"></a> <span class='hs-layout'>)</span>
<a name="line-273"></a> <span class='hs-layout'>)</span>
<a name="line-274"></a>
<a name="line-275"></a><a name="moduleInfo"></a><span class='hs-definition'>moduleInfo</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-276"></a><span class='hs-definition'>moduleInfo</span> <span class='hs-varid'>iface</span> <span class='hs-keyglyph'>=</span>
<a name="line-277"></a> <span class='hs-keyword'>let</span>
<a name="line-278"></a> <span class='hs-varid'>info</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ifaceInfo</span> <span class='hs-varid'>iface</span>
<a name="line-279"></a>
<a name="line-280"></a> <span class='hs-varid'>doOneEntry</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-conid'>HaddockModInfo</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Name</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>HtmlTable</span>
<a name="line-281"></a> <span class='hs-varid'>doOneEntry</span> <span class='hs-layout'>(</span><span class='hs-varid'>fieldName</span><span class='hs-layout'>,</span><span class='hs-varid'>field</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>field</span> <span class='hs-varid'>info</span> <span class='hs-keyword'>of</span>
<a name="line-282"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Nothing</span>
<a name="line-283"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>fieldValue</span> <span class='hs-keyglyph'>-></span>
<a name="line-284"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"infohead"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>fieldName</span><span class='hs-layout'>)</span>
<a name="line-285"></a> <span class='hs-varop'><-></span> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"infoval"</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>fieldValue</span><span class='hs-layout'>)</span>
<a name="line-286"></a>
<a name="line-287"></a> <span class='hs-varid'>entries</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>HtmlTable</span><span class='hs-keyglyph'>]</span>
<a name="line-288"></a> <span class='hs-varid'>entries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mapMaybe</span> <span class='hs-varid'>doOneEntry</span> <span class='hs-keyglyph'>[</span>
<a name="line-289"></a> <span class='hs-layout'>(</span><span class='hs-str'>"Portability"</span><span class='hs-layout'>,</span><span class='hs-varid'>hmi_portability</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-290"></a> <span class='hs-layout'>(</span><span class='hs-str'>"Stability"</span><span class='hs-layout'>,</span><span class='hs-varid'>hmi_stability</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-291"></a> <span class='hs-layout'>(</span><span class='hs-str'>"Maintainer"</span><span class='hs-layout'>,</span><span class='hs-varid'>hmi_maintainer</span><span class='hs-layout'>)</span>
<a name="line-292"></a> <span class='hs-keyglyph'>]</span>
<a name="line-293"></a> <span class='hs-keyword'>in</span>
<a name="line-294"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>entries</span> <span class='hs-keyword'>of</span>
<a name="line-295"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-296"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>align</span> <span class='hs-str'>"right"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>narrowTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span><span class='hs-varid'>foldl1</span> <span class='hs-layout'>(</span><span class='hs-varop'></></span><span class='hs-layout'>)</span> <span class='hs-varid'>entries</span><span class='hs-layout'>)</span>
<a name="line-297"></a>
<a name="line-298"></a><span class='hs-comment'>-- ---------------------------------------------------------------------------</span>
<a name="line-299"></a><span class='hs-comment'>-- Generate the module contents</span>
<a name="line-300"></a>
<a name="line-301"></a><a name="ppHtmlContents"></a><span class='hs-definition'>ppHtmlContents</span>
<a name="line-302"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span>
<a name="line-303"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-304"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-305"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-306"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-307"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SourceURLs</span>
<a name="line-308"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span>
<a name="line-309"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>InstalledInterface</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>RdrName</span><span class='hs-layout'>)</span>
<a name="line-310"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-311"></a><span class='hs-definition'>ppHtmlContents</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span>
<a name="line-312"></a> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-313"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varid'>ifaces</span> <span class='hs-varid'>showPkgs</span> <span class='hs-varid'>prologue</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-314"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>tree</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mkModuleTree</span> <span class='hs-varid'>showPkgs</span>
<a name="line-315"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>instMod</span> <span class='hs-varid'>iface</span><span class='hs-layout'>,</span> <span class='hs-varid'>toInstalledDescription</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>iface</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ifaces</span><span class='hs-keyglyph'>]</span>
<a name="line-316"></a> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-317"></a> <span class='hs-varid'>header</span>
<a name="line-318"></a> <span class='hs-layout'>(</span><span class='hs-varid'>documentCharacterEncoding</span> <span class='hs-varop'>+++</span>
<a name="line-319"></a> <span class='hs-varid'>thetitle</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-varid'>doctitle</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-320"></a> <span class='hs-varid'>styleSheet</span> <span class='hs-varop'>+++</span>
<a name="line-321"></a> <span class='hs-layout'>(</span><span class='hs-varid'>script</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-varid'>jsFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>thetype</span> <span class='hs-str'>"text/javascript"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'>$</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-322"></a> <span class='hs-varid'>body</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-323"></a> <span class='hs-varid'>simpleHeader</span> <span class='hs-varid'>doctitle</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>maybe_index_url</span>
<a name="line-324"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varop'></></span>
<a name="line-325"></a> <span class='hs-varid'>ppPrologue</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>prologue</span> <span class='hs-varop'></></span>
<a name="line-326"></a> <span class='hs-varid'>ppModuleTree</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>tree</span> <span class='hs-varop'></></span>
<a name="line-327"></a> <span class='hs-varid'>s15</span> <span class='hs-varop'></></span>
<a name="line-328"></a> <span class='hs-varid'>footer</span>
<a name="line-329"></a> <span class='hs-layout'>)</span>
<a name="line-330"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-varid'>odir</span>
<a name="line-331"></a> <span class='hs-varid'>writeFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>contentsHtmlFile</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderHtml</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-332"></a>
<a name="line-333"></a> <span class='hs-comment'>-- XXX: think of a better place for this?</span>
<a name="line-334"></a> <span class='hs-varid'>ppHtmlContentsFrame</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>ifaces</span>
<a name="line-335"></a>
<a name="line-336"></a> <span class='hs-comment'>-- Generate contents page for Html Help if requested</span>
<a name="line-337"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-keyword'>of</span>
<a name="line-338"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-339"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"mshelp"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppHHContents</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>tree</span>
<a name="line-340"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"mshelp2"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppHH2Contents</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>tree</span>
<a name="line-341"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"devhelp"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-342"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>format</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fail</span> <span class='hs-layout'>(</span><span class='hs-str'>"The "</span><span class='hs-varop'>++</span><span class='hs-varid'>format</span><span class='hs-varop'>++</span><span class='hs-str'>" format is not implemented"</span><span class='hs-layout'>)</span>
<a name="line-343"></a>
<a name="line-344"></a><a name="ppPrologue"></a><span class='hs-definition'>ppPrologue</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>RdrName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-345"></a><span class='hs-definition'>ppPrologue</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-346"></a><span class='hs-definition'>ppPrologue</span> <span class='hs-varid'>title</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-347"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>title</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-348"></a> <span class='hs-varid'>docBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>rdrDocToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-349"></a>
<a name="line-350"></a><a name="ppModuleTree"></a><span class='hs-definition'>ppModuleTree</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ModuleTree</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-351"></a><span class='hs-definition'>ppModuleTree</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>ts</span> <span class='hs-keyglyph'>=</span>
<a name="line-352"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Modules"</span> <span class='hs-varop'></></span>
<a name="line-353"></a> <span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable2</span> <span class='hs-varop'><<</span> <span class='hs-varid'>htmlTable</span>
<a name="line-354"></a> <span class='hs-keyword'>where</span>
<a name="line-355"></a> <span class='hs-varid'>genTable</span> <span class='hs-varid'>tbl</span> <span class='hs-varid'>id_</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>tbl</span><span class='hs-layout'>,</span> <span class='hs-varid'>id_</span><span class='hs-layout'>)</span>
<a name="line-356"></a> <span class='hs-varid'>genTable</span> <span class='hs-varid'>tbl</span> <span class='hs-varid'>id_</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>genTable</span> <span class='hs-layout'>(</span><span class='hs-varid'>tbl</span> <span class='hs-varop'></></span> <span class='hs-varid'>u</span><span class='hs-layout'>)</span> <span class='hs-varid'>id'</span> <span class='hs-varid'>xs</span>
<a name="line-357"></a> <span class='hs-keyword'>where</span>
<a name="line-358"></a> <span class='hs-layout'>(</span><span class='hs-varid'>u</span><span class='hs-layout'>,</span><span class='hs-varid'>id'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mkNode</span> <span class='hs-conid'>[]</span> <span class='hs-varid'>x</span> <span class='hs-num'>0</span> <span class='hs-varid'>id_</span>
<a name="line-359"></a>
<a name="line-360"></a> <span class='hs-layout'>(</span><span class='hs-varid'>htmlTable</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>genTable</span> <span class='hs-varid'>emptyTable</span> <span class='hs-num'>0</span> <span class='hs-varid'>ts</span>
<a name="line-361"></a>
<a name="line-362"></a><a name="mkNode"></a><span class='hs-definition'>mkNode</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ModuleTree</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>HtmlTable</span><span class='hs-layout'>,</span><span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-363"></a><span class='hs-definition'>mkNode</span> <span class='hs-varid'>ss</span> <span class='hs-layout'>(</span><span class='hs-conid'>Node</span> <span class='hs-varid'>s</span> <span class='hs-varid'>leaf</span> <span class='hs-varid'>pkg</span> <span class='hs-varid'>short</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span> <span class='hs-varid'>depth</span> <span class='hs-varid'>id_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>htmlNode</span>
<a name="line-364"></a> <span class='hs-keyword'>where</span>
<a name="line-365"></a> <span class='hs-varid'>htmlNode</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>ts</span> <span class='hs-keyword'>of</span>
<a name="line-366"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>td_pad_w</span> <span class='hs-num'>1.25</span> <span class='hs-varid'>depth</span> <span class='hs-varop'><<</span> <span class='hs-varid'>htmlModule</span> <span class='hs-varop'><-></span> <span class='hs-varid'>shortDescr</span> <span class='hs-varop'><-></span> <span class='hs-varid'>htmlPkg</span><span class='hs-layout'>,</span><span class='hs-varid'>id_</span><span class='hs-layout'>)</span>
<a name="line-367"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>td_w</span> <span class='hs-varid'>depth</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span><span class='hs-varid'>collapsebutton</span> <span class='hs-varid'>id_s</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>htmlModule</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span> <span class='hs-varid'>shortDescr</span> <span class='hs-varop'><-></span> <span class='hs-varid'>htmlPkg</span> <span class='hs-varop'></></span>
<a name="line-368"></a> <span class='hs-layout'>(</span><span class='hs-varid'>td_subtree</span> <span class='hs-varop'><<</span> <span class='hs-varid'>sub_tree</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>id'</span><span class='hs-layout'>)</span>
<a name="line-369"></a>
<a name="line-370"></a> <span class='hs-varid'>mod_width</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>50</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int</span> <span class='hs-comment'>{-em-}</span>
<a name="line-371"></a>
<a name="line-372"></a> <span class='hs-varid'>td_pad_w</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Double</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-373"></a> <span class='hs-varid'>td_pad_w</span> <span class='hs-varid'>pad</span> <span class='hs-varid'>depth_</span> <span class='hs-keyglyph'>=</span>
<a name="line-374"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>thestyle</span> <span class='hs-layout'>(</span><span class='hs-str'>"padding-left: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>pad</span> <span class='hs-varop'>++</span> <span class='hs-str'>"em;"</span> <span class='hs-varop'>++</span>
<a name="line-375"></a> <span class='hs-str'>"width: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-varid'>mod_width</span> <span class='hs-comment'>-</span> <span class='hs-varid'>depth_</span><span class='hs-varop'>*</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>"em"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-376"></a>
<a name="line-377"></a> <span class='hs-varid'>td_w</span> <span class='hs-varid'>depth_</span> <span class='hs-keyglyph'>=</span>
<a name="line-378"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>thestyle</span> <span class='hs-layout'>(</span><span class='hs-str'>"width: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-varid'>mod_width</span> <span class='hs-comment'>-</span> <span class='hs-varid'>depth_</span><span class='hs-varop'>*</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>"em"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-379"></a>
<a name="line-380"></a> <span class='hs-varid'>td_subtree</span> <span class='hs-keyglyph'>=</span>
<a name="line-381"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>thestyle</span> <span class='hs-layout'>(</span><span class='hs-str'>"padding: 0; padding-left: 2em"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-382"></a>
<a name="line-383"></a> <span class='hs-varid'>shortDescr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HtmlTable</span>
<a name="line-384"></a> <span class='hs-varid'>shortDescr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>short</span> <span class='hs-keyword'>of</span>
<a name="line-385"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>td</span> <span class='hs-varid'>empty</span>
<a name="line-386"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"rdoc"</span><span class='hs-keyglyph'>]</span> <span class='hs-layout'>(</span><span class='hs-varid'>origDocToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-387"></a>
<a name="line-388"></a> <span class='hs-varid'>htmlModule</span>
<a name="line-389"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>leaf</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppModule</span> <span class='hs-layout'>(</span><span class='hs-varid'>mkModule</span> <span class='hs-layout'>(</span><span class='hs-varid'>stringToPackageId</span> <span class='hs-varid'>pkgName</span><span class='hs-layout'>)</span>
<a name="line-390"></a> <span class='hs-layout'>(</span><span class='hs-varid'>mkModuleName</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-str'>""</span>
<a name="line-391"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>s</span>
<a name="line-392"></a>
<a name="line-393"></a> <span class='hs-comment'>-- ehm.. TODO: change the ModuleTree type</span>
<a name="line-394"></a> <span class='hs-layout'>(</span><span class='hs-varid'>htmlPkg</span><span class='hs-layout'>,</span> <span class='hs-varid'>pkgName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>pkg</span> <span class='hs-keyword'>of</span>
<a name="line-395"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>empty</span><span class='hs-layout'>,</span> <span class='hs-str'>""</span><span class='hs-layout'>)</span>
<a name="line-396"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>p</span><span class='hs-layout'>,</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-397"></a>
<a name="line-398"></a> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foldr</span> <span class='hs-layout'>(</span><span class='hs-varop'>++</span><span class='hs-layout'>)</span> <span class='hs-str'>""</span> <span class='hs-layout'>(</span><span class='hs-varid'>s'</span> <span class='hs-conop'>:</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-chr'>'.'</span><span class='hs-conop'>:</span><span class='hs-layout'>)</span> <span class='hs-varid'>ss'</span><span class='hs-layout'>)</span>
<a name="line-399"></a> <span class='hs-layout'>(</span><span class='hs-varid'>s'</span><span class='hs-conop'>:</span><span class='hs-varid'>ss'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>reverse</span> <span class='hs-layout'>(</span><span class='hs-varid'>s</span><span class='hs-conop'>:</span><span class='hs-varid'>ss</span><span class='hs-layout'>)</span>
<a name="line-400"></a> <span class='hs-comment'>-- reconstruct the module name</span>
<a name="line-401"></a>
<a name="line-402"></a> <span class='hs-varid'>id_s</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"n."</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>id_</span>
<a name="line-403"></a>
<a name="line-404"></a> <span class='hs-layout'>(</span><span class='hs-varid'>sub_tree</span><span class='hs-layout'>,</span><span class='hs-varid'>id'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>genSubTree</span> <span class='hs-varid'>emptyTable</span> <span class='hs-layout'>(</span><span class='hs-varid'>id_</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>ts</span>
<a name="line-405"></a>
<a name="line-406"></a> <span class='hs-varid'>genSubTree</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HtmlTable</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ModuleTree</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Html</span><span class='hs-layout'>,</span><span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-407"></a> <span class='hs-varid'>genSubTree</span> <span class='hs-varid'>htmlTable</span> <span class='hs-varid'>id__</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>sub_tree_</span><span class='hs-layout'>,</span> <span class='hs-varid'>id__</span><span class='hs-layout'>)</span>
<a name="line-408"></a> <span class='hs-keyword'>where</span>
<a name="line-409"></a> <span class='hs-varid'>sub_tree_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>collapsed</span> <span class='hs-varid'>vanillaTable2</span> <span class='hs-varid'>id_s</span> <span class='hs-varid'>htmlTable</span>
<a name="line-410"></a> <span class='hs-varid'>genSubTree</span> <span class='hs-varid'>htmlTable</span> <span class='hs-varid'>id__</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>genSubTree</span> <span class='hs-layout'>(</span><span class='hs-varid'>htmlTable</span> <span class='hs-varop'></></span> <span class='hs-varid'>u</span><span class='hs-layout'>)</span> <span class='hs-varid'>id__'</span> <span class='hs-varid'>xs</span>
<a name="line-411"></a> <span class='hs-keyword'>where</span>
<a name="line-412"></a> <span class='hs-layout'>(</span><span class='hs-varid'>u</span><span class='hs-layout'>,</span><span class='hs-varid'>id__'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mkNode</span> <span class='hs-layout'>(</span><span class='hs-varid'>s</span><span class='hs-conop'>:</span><span class='hs-varid'>ss</span><span class='hs-layout'>)</span> <span class='hs-varid'>x</span> <span class='hs-layout'>(</span><span class='hs-varid'>depth</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>id__</span>
<a name="line-413"></a>
<a name="line-414"></a><a name="LinksInfo"></a><span class='hs-comment'>-- The URL for source and wiki links, and the current module</span>
<a name="line-415"></a><a name="LinksInfo"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>SourceURLs</span><span class='hs-layout'>,</span> <span class='hs-conid'>WikiURLs</span><span class='hs-layout'>)</span>
<a name="line-416"></a>
<a name="line-417"></a><a name="flatModuleTree"></a><span class='hs-comment'>-- | Turn a module tree into a flat list of full module names. E.g.,</span>
<a name="line-418"></a><span class='hs-comment'>-- @</span>
<a name="line-419"></a><span class='hs-comment'>-- A</span>
<a name="line-420"></a><span class='hs-comment'>-- +-B</span>
<a name="line-421"></a><span class='hs-comment'>-- +-C</span>
<a name="line-422"></a><span class='hs-comment'>-- @</span>
<a name="line-423"></a><span class='hs-comment'>-- becomes</span>
<a name="line-424"></a><span class='hs-comment'>-- @["A", "A.B", "A.B.C"]@</span>
<a name="line-425"></a><span class='hs-definition'>flatModuleTree</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>InstalledInterface</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span>
<a name="line-426"></a><span class='hs-definition'>flatModuleTree</span> <span class='hs-varid'>ifaces</span> <span class='hs-keyglyph'>=</span>
<a name="line-427"></a> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>uncurry</span> <span class='hs-varid'>ppModule'</span> <span class='hs-varop'>.</span> <span class='hs-varid'>head</span><span class='hs-layout'>)</span>
<a name="line-428"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>groupBy</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varop'>==</span><span class='hs-layout'>)</span> <span class='hs-varop'>`on`</span> <span class='hs-varid'>fst</span><span class='hs-layout'>)</span>
<a name="line-429"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>sortBy</span> <span class='hs-layout'>(</span><span class='hs-varid'>comparing</span> <span class='hs-varid'>fst</span><span class='hs-layout'>)</span>
<a name="line-430"></a> <span class='hs-varop'>$</span> <span class='hs-varid'>mods</span>
<a name="line-431"></a> <span class='hs-keyword'>where</span>
<a name="line-432"></a> <span class='hs-varid'>mods</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>,</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>map</span> <span class='hs-varid'>instMod</span> <span class='hs-varid'>ifaces</span> <span class='hs-keyglyph'>]</span>
<a name="line-433"></a> <span class='hs-varid'>ppModule'</span> <span class='hs-varid'>txt</span> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span>
<a name="line-434"></a> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>target</span> <span class='hs-varid'>mainFrameName</span><span class='hs-keyglyph'>]</span>
<a name="line-435"></a> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>txt</span>
<a name="line-436"></a>
<a name="line-437"></a><a name="ppHtmlContentsFrame"></a><span class='hs-definition'>ppHtmlContentsFrame</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>InstalledInterface</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-438"></a><span class='hs-definition'>ppHtmlContentsFrame</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>ifaces</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-439"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>mods</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>flatModuleTree</span> <span class='hs-varid'>ifaces</span>
<a name="line-440"></a> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-441"></a> <span class='hs-varid'>header</span>
<a name="line-442"></a> <span class='hs-layout'>(</span><span class='hs-varid'>documentCharacterEncoding</span> <span class='hs-varop'>+++</span>
<a name="line-443"></a> <span class='hs-varid'>thetitle</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-varid'>doctitle</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-444"></a> <span class='hs-varid'>styleSheet</span> <span class='hs-varop'>+++</span>
<a name="line-445"></a> <span class='hs-layout'>(</span><span class='hs-varid'>script</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-varid'>jsFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>thetype</span> <span class='hs-str'>"text/javascript"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'>$</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-446"></a> <span class='hs-varid'>body</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>p</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-447"></a> <span class='hs-varid'>foldr</span> <span class='hs-layout'>(</span><span class='hs-varop'>+++</span><span class='hs-layout'>)</span> <span class='hs-varid'>noHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varop'>+++</span><span class='hs-varid'>br</span><span class='hs-layout'>)</span> <span class='hs-varid'>mods</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-448"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-varid'>odir</span>
<a name="line-449"></a> <span class='hs-varid'>writeFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>frameIndexHtmlFile</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderHtml</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-450"></a>
<a name="line-451"></a><span class='hs-comment'>-- ---------------------------------------------------------------------------</span>
<a name="line-452"></a><span class='hs-comment'>-- Generate the index</span>
<a name="line-453"></a>
<a name="line-454"></a><a name="ppHtmlIndex"></a><span class='hs-definition'>ppHtmlIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span>
<a name="line-455"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-456"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-457"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-458"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-459"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SourceURLs</span>
<a name="line-460"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span>
<a name="line-461"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>InstalledInterface</span><span class='hs-keyglyph'>]</span>
<a name="line-462"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-463"></a><span class='hs-definition'>ppHtmlIndex</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>maybe_html_help_format</span>
<a name="line-464"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varid'>ifaces</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-465"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-466"></a> <span class='hs-varid'>header</span> <span class='hs-layout'>(</span><span class='hs-varid'>documentCharacterEncoding</span> <span class='hs-varop'>+++</span>
<a name="line-467"></a> <span class='hs-varid'>thetitle</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>doctitle</span> <span class='hs-varop'>++</span> <span class='hs-str'>" (Index)"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-468"></a> <span class='hs-varid'>styleSheet</span> <span class='hs-varop'>+++</span>
<a name="line-469"></a> <span class='hs-layout'>(</span><span class='hs-varid'>script</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-varid'>jsFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>thetype</span> <span class='hs-str'>"text/javascript"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'>$</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-470"></a> <span class='hs-varid'>body</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-471"></a> <span class='hs-varid'>simpleHeader</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-conid'>Nothing</span>
<a name="line-472"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varop'></></span>
<a name="line-473"></a> <span class='hs-varid'>index_html</span>
<a name="line-474"></a> <span class='hs-layout'>)</span>
<a name="line-475"></a>
<a name="line-476"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-varid'>odir</span>
<a name="line-477"></a>
<a name="line-478"></a> <span class='hs-varid'>when</span> <span class='hs-varid'>split_indices</span> <span class='hs-varop'>$</span>
<a name="line-479"></a> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>do_sub_index</span> <span class='hs-varid'>index</span><span class='hs-layout'>)</span> <span class='hs-varid'>initialChars</span>
<a name="line-480"></a>
<a name="line-481"></a> <span class='hs-varid'>writeFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>indexHtmlFile</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderHtml</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-482"></a>
<a name="line-483"></a> <span class='hs-comment'>-- Generate index and contents page for Html Help if requested</span>
<a name="line-484"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_html_help_format</span> <span class='hs-keyword'>of</span>
<a name="line-485"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-486"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"mshelp"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppHHIndex</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>ifaces</span>
<a name="line-487"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"mshelp2"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppHH2Index</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>maybe_package</span> <span class='hs-varid'>ifaces</span>
<a name="line-488"></a> <span class='hs-conid'>Just</span> <span class='hs-str'>"devhelp"</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-489"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>format</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fail</span> <span class='hs-layout'>(</span><span class='hs-str'>"The "</span><span class='hs-varop'>++</span><span class='hs-varid'>format</span><span class='hs-varop'>++</span><span class='hs-str'>" format is not implemented"</span><span class='hs-layout'>)</span>
<a name="line-490"></a> <span class='hs-keyword'>where</span>
<a name="line-491"></a>
<a name="line-492"></a> <span class='hs-varid'>index_html</span>
<a name="line-493"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>split_indices</span> <span class='hs-keyglyph'>=</span>
<a name="line-494"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-495"></a> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-str'>"Index"</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-496"></a> <span class='hs-varid'>indexInitialLetterLinks</span>
<a name="line-497"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span>
<a name="line-498"></a> <span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>setTrClass</span> <span class='hs-layout'>(</span><span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>identifier</span> <span class='hs-str'>"indexlist"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>5</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-499"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>indexElt</span> <span class='hs-varid'>index</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-500"></a>
<a name="line-501"></a> <span class='hs-comment'>-- an arbitrary heuristic:</span>
<a name="line-502"></a> <span class='hs-comment'>-- too large, and a single-page will be slow to load</span>
<a name="line-503"></a> <span class='hs-comment'>-- too small, and we'll have lots of letter-indexes with only one</span>
<a name="line-504"></a> <span class='hs-comment'>-- or two members in them, which seems inefficient or</span>
<a name="line-505"></a> <span class='hs-comment'>-- unnecessarily hard to use.</span>
<a name="line-506"></a> <span class='hs-varid'>split_indices</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>length</span> <span class='hs-varid'>index</span> <span class='hs-varop'>></span> <span class='hs-num'>150</span>
<a name="line-507"></a>
<a name="line-508"></a> <span class='hs-varid'>setTrClass</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-509"></a> <span class='hs-varid'>setTrClass</span> <span class='hs-layout'>(</span><span class='hs-conid'>Html</span> <span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span> <span class='hs-varop'>$</span> <span class='hs-varid'>map</span> <span class='hs-varid'>f</span> <span class='hs-varid'>xs</span>
<a name="line-510"></a> <span class='hs-keyword'>where</span>
<a name="line-511"></a> <span class='hs-varid'>f</span> <span class='hs-layout'>(</span><span class='hs-conid'>HtmlTag</span> <span class='hs-varid'>name</span> <span class='hs-varid'>attrs</span> <span class='hs-varid'>inner</span><span class='hs-layout'>)</span>
<a name="line-512"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>map</span> <span class='hs-varid'>toUpper</span> <span class='hs-varid'>name</span> <span class='hs-varop'>==</span> <span class='hs-str'>"TR"</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>HtmlTag</span> <span class='hs-varid'>name</span> <span class='hs-layout'>(</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"indexrow"</span><span class='hs-conop'>:</span><span class='hs-varid'>attrs</span><span class='hs-layout'>)</span> <span class='hs-varid'>inner</span>
<a name="line-513"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>HtmlTag</span> <span class='hs-varid'>name</span> <span class='hs-varid'>attrs</span> <span class='hs-layout'>(</span><span class='hs-varid'>setTrClass</span> <span class='hs-varid'>inner</span><span class='hs-layout'>)</span>
<a name="line-514"></a> <span class='hs-varid'>f</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span>
<a name="line-515"></a>
<a name="line-516"></a> <span class='hs-varid'>indexInitialLetterLinks</span> <span class='hs-keyglyph'>=</span>
<a name="line-517"></a> <span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>setTrClass</span> <span class='hs-layout'>(</span><span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>5</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-518"></a> <span class='hs-varid'>besides</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-layout'>(</span><span class='hs-varid'>subIndexHtmlFile</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-519"></a> <span class='hs-varid'>toHtml</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>c</span><span class='hs-keyglyph'>]</span>
<a name="line-520"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>c</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>initialChars</span>
<a name="line-521"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>any</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varop'>==</span><span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toUpper</span> <span class='hs-varop'>.</span> <span class='hs-varid'>head</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fst</span><span class='hs-layout'>)</span> <span class='hs-varid'>index</span> <span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-522"></a>
<a name="line-523"></a> <span class='hs-comment'>-- todo: what about names/operators that start with Unicode</span>
<a name="line-524"></a> <span class='hs-comment'>-- characters?</span>
<a name="line-525"></a> <span class='hs-comment'>-- Exports beginning with '_' can be listed near the end,</span>
<a name="line-526"></a> <span class='hs-comment'>-- presumably they're not as important... but would be listed</span>
<a name="line-527"></a> <span class='hs-comment'>-- with non-split index!</span>
<a name="line-528"></a> <span class='hs-varid'>initialChars</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-chr'>'A'</span><span class='hs-keyglyph'>..</span><span class='hs-chr'>'Z'</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'>++</span> <span class='hs-str'>":!#$%&*+./<=>?@\\^|-~"</span> <span class='hs-varop'>++</span> <span class='hs-str'>"_"</span>
<a name="line-529"></a>
<a name="line-530"></a> <span class='hs-varid'>do_sub_index</span> <span class='hs-varid'>this_ix</span> <span class='hs-varid'>c</span>
<a name="line-531"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>index_part</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-532"></a> <span class='hs-varid'>writeFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>subIndexHtmlFile</span> <span class='hs-varid'>c</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderHtml</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-533"></a> <span class='hs-keyword'>where</span>
<a name="line-534"></a> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header</span> <span class='hs-layout'>(</span><span class='hs-varid'>documentCharacterEncoding</span> <span class='hs-varop'>+++</span>
<a name="line-535"></a> <span class='hs-varid'>thetitle</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>doctitle</span> <span class='hs-varop'>++</span> <span class='hs-str'>" (Index)"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-536"></a> <span class='hs-varid'>styleSheet</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-537"></a> <span class='hs-varid'>body</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-538"></a> <span class='hs-varid'>simpleHeader</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-conid'>Nothing</span>
<a name="line-539"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varop'></></span>
<a name="line-540"></a> <span class='hs-varid'>indexInitialLetterLinks</span> <span class='hs-varop'></></span>
<a name="line-541"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-542"></a> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-str'>"Index ("</span> <span class='hs-varop'>++</span> <span class='hs-varid'>c</span><span class='hs-conop'>:</span><span class='hs-str'>")"</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-543"></a> <span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>setTrClass</span> <span class='hs-layout'>(</span><span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>identifier</span> <span class='hs-str'>"indexlist"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>5</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-544"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>indexElt</span> <span class='hs-varid'>index_part</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span>
<a name="line-545"></a> <span class='hs-layout'>)</span>
<a name="line-546"></a>
<a name="line-547"></a> <span class='hs-varid'>index_part</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-layout'>,</span><span class='hs-varid'>stuff</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-layout'>,</span><span class='hs-varid'>stuff</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>this_ix</span><span class='hs-layout'>,</span> <span class='hs-varid'>toUpper</span> <span class='hs-layout'>(</span><span class='hs-varid'>head</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-varop'>==</span> <span class='hs-varid'>c</span><span class='hs-keyglyph'>]</span>
<a name="line-548"></a>
<a name="line-549"></a>
<a name="line-550"></a> <span class='hs-varid'>index</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>Map</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Name</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>Module</span><span class='hs-layout'>,</span><span class='hs-conid'>Bool</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-551"></a> <span class='hs-varid'>index</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>sortBy</span> <span class='hs-varid'>cmp</span> <span class='hs-layout'>(</span><span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>toAscList</span> <span class='hs-varid'>full_index</span><span class='hs-layout'>)</span>
<a name="line-552"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>cmp</span> <span class='hs-layout'>(</span><span class='hs-varid'>n1</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>n2</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varid'>toUpper</span> <span class='hs-varid'>n1</span> <span class='hs-varop'>`compare`</span> <span class='hs-varid'>map</span> <span class='hs-varid'>toUpper</span> <span class='hs-varid'>n2</span>
<a name="line-553"></a>
<a name="line-554"></a> <span class='hs-comment'>-- for each name (a plain string), we have a number of original HsNames that</span>
<a name="line-555"></a> <span class='hs-comment'>-- it can refer to, and for each of those we have a list of modules</span>
<a name="line-556"></a> <span class='hs-comment'>-- that export that entity. Each of the modules exports the entity</span>
<a name="line-557"></a> <span class='hs-comment'>-- in a visible or invisible way (hence the Bool).</span>
<a name="line-558"></a> <span class='hs-varid'>full_index</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Map</span> <span class='hs-conid'>String</span> <span class='hs-layout'>(</span><span class='hs-conid'>Map</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Name</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>Module</span><span class='hs-layout'>,</span><span class='hs-conid'>Bool</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-559"></a> <span class='hs-varid'>full_index</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>fromListWith</span> <span class='hs-layout'>(</span><span class='hs-varid'>flip</span> <span class='hs-layout'>(</span><span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>unionWith</span> <span class='hs-layout'>(</span><span class='hs-varop'>++</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-560"></a> <span class='hs-layout'>(</span><span class='hs-varid'>concat</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>getIfaceIndex</span> <span class='hs-varid'>ifaces</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-561"></a>
<a name="line-562"></a> <span class='hs-varid'>getIfaceIndex</span> <span class='hs-varid'>iface</span> <span class='hs-keyglyph'>=</span>
<a name="line-563"></a> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-varid'>getOccString</span> <span class='hs-varid'>name</span>
<a name="line-564"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>name</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>mdl</span><span class='hs-layout'>,</span> <span class='hs-varid'>name</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>instVisibleExports</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-565"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>name</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>instExports</span> <span class='hs-varid'>iface</span> <span class='hs-keyglyph'>]</span>
<a name="line-566"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>instMod</span> <span class='hs-varid'>iface</span>
<a name="line-567"></a>
<a name="line-568"></a> <span class='hs-varid'>indexElt</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-conid'>Map</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Name</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>Module</span><span class='hs-layout'>,</span><span class='hs-conid'>Bool</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-569"></a> <span class='hs-varid'>indexElt</span> <span class='hs-layout'>(</span><span class='hs-varid'>str</span><span class='hs-layout'>,</span> <span class='hs-varid'>entities</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-570"></a> <span class='hs-keyword'>case</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>toAscList</span> <span class='hs-varid'>entities</span> <span class='hs-keyword'>of</span>
<a name="line-571"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>nm</span><span class='hs-layout'>,</span><span class='hs-varid'>entries</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span>
<a name="line-572"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"indexentry"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>str</span> <span class='hs-varop'><-></span>
<a name="line-573"></a> <span class='hs-varid'>indexLinks</span> <span class='hs-varid'>nm</span> <span class='hs-varid'>entries</span>
<a name="line-574"></a> <span class='hs-varid'>many_entities</span> <span class='hs-keyglyph'>-></span>
<a name="line-575"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"indexentry"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>str</span> <span class='hs-varop'></></span>
<a name="line-576"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>doAnnotatedEntity</span> <span class='hs-layout'>(</span><span class='hs-varid'>zip</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>1</span><span class='hs-keyglyph'>..</span><span class='hs-keyglyph'>]</span> <span class='hs-varid'>many_entities</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-577"></a>
<a name="line-578"></a> <span class='hs-varid'>doAnnotatedEntity</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Integer</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-conid'>Name</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>Module</span><span class='hs-layout'>,</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-579"></a> <span class='hs-varid'>doAnnotatedEntity</span> <span class='hs-layout'>(</span><span class='hs-varid'>j</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-varid'>nm</span><span class='hs-layout'>,</span><span class='hs-varid'>entries</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-580"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"indexannot"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-581"></a> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>show</span> <span class='hs-varid'>j</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span> <span class='hs-varid'>parens</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppAnnot</span> <span class='hs-layout'>(</span><span class='hs-varid'>nameOccName</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-582"></a> <span class='hs-varid'>indexLinks</span> <span class='hs-varid'>nm</span> <span class='hs-varid'>entries</span>
<a name="line-583"></a>
<a name="line-584"></a> <span class='hs-varid'>ppAnnot</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isValOcc</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Type/Class"</span>
<a name="line-585"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isDataOcc</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Data Constructor"</span>
<a name="line-586"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Function"</span>
<a name="line-587"></a>
<a name="line-588"></a> <span class='hs-varid'>indexLinks</span> <span class='hs-varid'>nm</span> <span class='hs-varid'>entries</span> <span class='hs-keyglyph'>=</span>
<a name="line-589"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"indexlinks"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-590"></a> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>punctuate</span> <span class='hs-varid'>comma</span>
<a name="line-591"></a> <span class='hs-keyglyph'>[</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>visible</span> <span class='hs-keyword'>then</span>
<a name="line-592"></a> <span class='hs-varid'>linkId</span> <span class='hs-varid'>mdl</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span>
<a name="line-593"></a> <span class='hs-keyword'>else</span>
<a name="line-594"></a> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span>
<a name="line-595"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>mdl</span><span class='hs-layout'>,</span> <span class='hs-varid'>visible</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>entries</span> <span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-596"></a>
<a name="line-597"></a><span class='hs-comment'>-- ---------------------------------------------------------------------------</span>
<a name="line-598"></a><span class='hs-comment'>-- Generate the HTML page for a module</span>
<a name="line-599"></a>
<a name="line-600"></a><a name="ppHtmlModule"></a><span class='hs-definition'>ppHtmlModule</span>
<a name="line-601"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-602"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SourceURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span>
<a name="line-603"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span>
<a name="line-604"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-605"></a><span class='hs-definition'>ppHtmlModule</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span>
<a name="line-606"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-607"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_index_url</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>iface</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-608"></a> <span class='hs-keyword'>let</span>
<a name="line-609"></a> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ifaceMod</span> <span class='hs-varid'>iface</span>
<a name="line-610"></a> <span class='hs-varid'>mdl_str</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span>
<a name="line-611"></a> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-612"></a> <span class='hs-varid'>header</span> <span class='hs-layout'>(</span><span class='hs-varid'>documentCharacterEncoding</span> <span class='hs-varop'>+++</span>
<a name="line-613"></a> <span class='hs-varid'>thetitle</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-varid'>mdl_str</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-614"></a> <span class='hs-varid'>styleSheet</span> <span class='hs-varop'>+++</span>
<a name="line-615"></a> <span class='hs-layout'>(</span><span class='hs-varid'>script</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-varid'>jsFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>thetype</span> <span class='hs-str'>"text/javascript"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'>$</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-616"></a> <span class='hs-layout'>(</span><span class='hs-varid'>script</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>thetype</span> <span class='hs-str'>"text/javascript"</span><span class='hs-keyglyph'>]</span>
<a name="line-617"></a> <span class='hs-comment'>-- XXX: quoting errors possible?</span>
<a name="line-618"></a> <span class='hs-varop'><<</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>HtmlString</span> <span class='hs-layout'>(</span><span class='hs-str'>"window.onload = function () {setSynopsis(\"mini_"</span>
<a name="line-619"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span> <span class='hs-varop'>++</span> <span class='hs-str'>"\")};"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-620"></a> <span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-621"></a> <span class='hs-varid'>body</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-622"></a> <span class='hs-varid'>pageHeader</span> <span class='hs-varid'>mdl_str</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>doctitle</span>
<a name="line-623"></a> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span>
<a name="line-624"></a> <span class='hs-varid'>maybe_contents_url</span> <span class='hs-varid'>maybe_index_url</span> <span class='hs-varop'></></span> <span class='hs-varid'>s15</span> <span class='hs-varop'></></span>
<a name="line-625"></a> <span class='hs-varid'>ifaceToHtml</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'></></span> <span class='hs-varid'>s15</span> <span class='hs-varop'></></span>
<a name="line-626"></a> <span class='hs-varid'>footer</span>
<a name="line-627"></a> <span class='hs-layout'>)</span>
<a name="line-628"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-varid'>odir</span>
<a name="line-629"></a> <span class='hs-varid'>writeFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderHtml</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-630"></a> <span class='hs-varid'>ppHtmlModuleMiniSynopsis</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>doctitle</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>unicode</span>
<a name="line-631"></a>
<a name="line-632"></a><a name="ppHtmlModuleMiniSynopsis"></a><span class='hs-definition'>ppHtmlModuleMiniSynopsis</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-633"></a><span class='hs-definition'>ppHtmlModuleMiniSynopsis</span> <span class='hs-varid'>odir</span> <span class='hs-sel'>_doctitle</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-634"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ifaceMod</span> <span class='hs-varid'>iface</span>
<a name="line-635"></a> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-636"></a> <span class='hs-varid'>header</span>
<a name="line-637"></a> <span class='hs-layout'>(</span><span class='hs-varid'>documentCharacterEncoding</span> <span class='hs-varop'>+++</span>
<a name="line-638"></a> <span class='hs-varid'>thetitle</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-varop'>$</span> <span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-639"></a> <span class='hs-varid'>styleSheet</span> <span class='hs-varop'>+++</span>
<a name="line-640"></a> <span class='hs-layout'>(</span><span class='hs-varid'>script</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-varid'>jsFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>thetype</span> <span class='hs-str'>"text/javascript"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'>$</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-641"></a> <span class='hs-varid'>body</span> <span class='hs-varop'><<</span> <span class='hs-varid'>thediv</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"outer"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-642"></a> <span class='hs-layout'>(</span><span class='hs-varid'>thediv</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"mini-topbar"</span><span class='hs-keyglyph'>]</span>
<a name="line-643"></a> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span>
<a name="line-644"></a> <span class='hs-varid'>miniSynopsis</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-645"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-varid'>odir</span>
<a name="line-646"></a> <span class='hs-varid'>writeFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>pathJoin</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>odir</span><span class='hs-layout'>,</span> <span class='hs-str'>"mini_"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>renderHtml</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-647"></a>
<a name="line-648"></a><a name="ifaceToHtml"></a><span class='hs-definition'>ifaceToHtml</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SourceURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>WikiURLs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-649"></a><span class='hs-definition'>ifaceToHtml</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>unicode</span>
<a name="line-650"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>abovesSep</span> <span class='hs-varid'>s15</span> <span class='hs-layout'>(</span><span class='hs-varid'>contents</span> <span class='hs-varop'>++</span> <span class='hs-varid'>description</span><span class='hs-conop'>:</span> <span class='hs-varid'>synopsis</span><span class='hs-conop'>:</span> <span class='hs-varid'>maybe_doc_hdr</span><span class='hs-conop'>:</span> <span class='hs-varid'>bdy</span><span class='hs-layout'>)</span>
<a name="line-651"></a> <span class='hs-keyword'>where</span>
<a name="line-652"></a> <span class='hs-varid'>exports</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>numberSectionHeadings</span> <span class='hs-layout'>(</span><span class='hs-varid'>ifaceRnExportItems</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span>
<a name="line-653"></a>
<a name="line-654"></a> <span class='hs-comment'>-- todo: if something has only sub-docs, or fn-args-docs, should</span>
<a name="line-655"></a> <span class='hs-comment'>-- it be measured here and thus prevent omitting the synopsis?</span>
<a name="line-656"></a> <span class='hs-varid'>has_doc</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportDecl</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>doc</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>isJust</span> <span class='hs-layout'>(</span><span class='hs-varid'>fst</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-657"></a> <span class='hs-varid'>has_doc</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportNoDecl</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-658"></a> <span class='hs-varid'>has_doc</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportModule</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-659"></a> <span class='hs-varid'>has_doc</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-660"></a>
<a name="line-661"></a> <span class='hs-varid'>no_doc_at_all</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>any</span> <span class='hs-varid'>has_doc</span> <span class='hs-varid'>exports</span><span class='hs-layout'>)</span>
<a name="line-662"></a>
<a name="line-663"></a> <span class='hs-varid'>contents</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>ppModuleContents</span> <span class='hs-varid'>exports</span> <span class='hs-keyword'>of</span>
<a name="line-664"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>[]</span>
<a name="line-665"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-varid'>x</span><span class='hs-keyglyph'>]</span>
<a name="line-666"></a>
<a name="line-667"></a> <span class='hs-varid'>description</span>
<a name="line-668"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>ifaceRnDoc</span> <span class='hs-varid'>iface</span> <span class='hs-keyword'>of</span>
<a name="line-669"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-670"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Description"</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-671"></a> <span class='hs-varid'>docBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-672"></a>
<a name="line-673"></a> <span class='hs-comment'>-- omit the synopsis if there are no documentation annotations at all</span>
<a name="line-674"></a> <span class='hs-varid'>synopsis</span>
<a name="line-675"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>no_doc_at_all</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-676"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-677"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Synopsis"</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-678"></a> <span class='hs-varid'>s15</span> <span class='hs-varop'></></span>
<a name="line-679"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span>
<a name="line-680"></a> <span class='hs-varid'>abovesSep</span> <span class='hs-varid'>s8</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>processExport</span> <span class='hs-conid'>True</span> <span class='hs-varid'>linksInfo</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-681"></a> <span class='hs-layout'>(</span><span class='hs-varid'>filter</span> <span class='hs-varid'>forSummary</span> <span class='hs-varid'>exports</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-682"></a> <span class='hs-layout'>)</span>
<a name="line-683"></a>
<a name="line-684"></a> <span class='hs-comment'>-- if the documentation doesn't begin with a section header, then</span>
<a name="line-685"></a> <span class='hs-comment'>-- add one ("Documentation").</span>
<a name="line-686"></a> <span class='hs-varid'>maybe_doc_hdr</span>
<a name="line-687"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>exports</span> <span class='hs-keyword'>of</span>
<a name="line-688"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-689"></a> <span class='hs-conid'>ExportGroup</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-conop'>:</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-690"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Documentation"</span>
<a name="line-691"></a>
<a name="line-692"></a> <span class='hs-varid'>bdy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>processExport</span> <span class='hs-conid'>False</span> <span class='hs-varid'>linksInfo</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>exports</span>
<a name="line-693"></a> <span class='hs-varid'>linksInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>maybe_source_url</span><span class='hs-layout'>,</span> <span class='hs-varid'>maybe_wiki_url</span><span class='hs-layout'>)</span>
<a name="line-694"></a>
<a name="line-695"></a><a name="miniSynopsis"></a><span class='hs-definition'>miniSynopsis</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Interface</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-696"></a><span class='hs-definition'>miniSynopsis</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>iface</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-697"></a> <span class='hs-varid'>thediv</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"mini-synopsis"</span> <span class='hs-keyglyph'>]</span>
<a name="line-698"></a> <span class='hs-varop'><<</span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>processForMiniSynopsis</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>exports</span><span class='hs-layout'>)</span>
<a name="line-699"></a> <span class='hs-keyword'>where</span>
<a name="line-700"></a> <span class='hs-varid'>exports</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>numberSectionHeadings</span> <span class='hs-layout'>(</span><span class='hs-varid'>ifaceRnExportItems</span> <span class='hs-varid'>iface</span><span class='hs-layout'>)</span>
<a name="line-701"></a>
<a name="line-702"></a><a name="processForMiniSynopsis"></a><span class='hs-definition'>processForMiniSynopsis</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-703"></a><span class='hs-definition'>processForMiniSynopsis</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportDecl</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-sel'>_loc</span> <span class='hs-varid'>decl0</span><span class='hs-layout'>)</span> <span class='hs-sel'>_doc</span> <span class='hs-keyword'>_</span> <span class='hs-sel'>_insts</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-704"></a> <span class='hs-varid'>thediv</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"decl"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-705"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>decl0</span> <span class='hs-keyword'>of</span>
<a name="line-706"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>TyFamily</span><span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppTyFamHeader</span> <span class='hs-conid'>True</span> <span class='hs-conid'>False</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-707"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>TyData</span><span class='hs-layout'>{</span><span class='hs-varid'>tcdTyPats</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ps</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-708"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ps</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"data"</span> <span class='hs-varop'><++></span> <span class='hs-varid'>ppTyClBinderWithVarsMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>d</span>
<a name="line-709"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Just</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ps</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"data"</span> <span class='hs-varop'><++></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"instance"</span>
<a name="line-710"></a> <span class='hs-varop'><++></span> <span class='hs-varid'>ppTyClBinderWithVarsMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>d</span>
<a name="line-711"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>TySynonym</span><span class='hs-layout'>{</span><span class='hs-varid'>tcdTyPats</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ps</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-712"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ps</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"type"</span> <span class='hs-varop'><++></span> <span class='hs-varid'>ppTyClBinderWithVarsMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>d</span>
<a name="line-713"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Just</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ps</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"type"</span> <span class='hs-varop'><++></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"instance"</span>
<a name="line-714"></a> <span class='hs-varop'><++></span> <span class='hs-varid'>ppTyClBinderWithVarsMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>d</span>
<a name="line-715"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>ClassDecl</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-716"></a> <span class='hs-varid'>keyword</span> <span class='hs-str'>"class"</span> <span class='hs-varop'><++></span> <span class='hs-varid'>ppTyClBinderWithVarsMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>d</span>
<a name="line-717"></a> <span class='hs-conid'>SigD</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypeSig</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-718"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>nm</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docNameOcc</span> <span class='hs-varid'>n</span>
<a name="line-719"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>ppNameMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>nm</span>
<a name="line-720"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>noHtml</span>
<a name="line-721"></a><span class='hs-definition'>processForMiniSynopsis</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportGroup</span> <span class='hs-varid'>lvl</span> <span class='hs-sel'>_id</span> <span class='hs-varid'>txt</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-722"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>heading</span>
<a name="line-723"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lvl</span> <span class='hs-varop'>==</span> <span class='hs-num'>1</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>h1</span>
<a name="line-724"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lvl</span> <span class='hs-varop'>==</span> <span class='hs-num'>2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>h2</span>
<a name="line-725"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lvl</span> <span class='hs-varop'>>=</span> <span class='hs-num'>3</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>h3</span>
<a name="line-726"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"bad group level"</span>
<a name="line-727"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>heading</span> <span class='hs-varop'><<</span> <span class='hs-varid'>docToHtml</span> <span class='hs-varid'>txt</span>
<a name="line-728"></a><span class='hs-definition'>processForMiniSynopsis</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>noHtml</span>
<a name="line-729"></a>
<a name="line-730"></a><a name="ppNameMini"></a><span class='hs-definition'>ppNameMini</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-731"></a><span class='hs-definition'>ppNameMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>nm</span> <span class='hs-keyglyph'>=</span>
<a name="line-732"></a> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>href</span> <span class='hs-layout'>(</span> <span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span> <span class='hs-varop'>++</span> <span class='hs-str'>"#"</span>
<a name="line-733"></a> <span class='hs-varop'>++</span> <span class='hs-layout'>(</span><span class='hs-varid'>escapeStr</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchorNameStr</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-734"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>target</span> <span class='hs-varid'>mainFrameName</span> <span class='hs-keyglyph'>]</span>
<a name="line-735"></a> <span class='hs-varop'><<</span> <span class='hs-varid'>ppBinder'</span> <span class='hs-varid'>nm</span>
<a name="line-736"></a>
<a name="line-737"></a><a name="ppTyClBinderWithVarsMini"></a><span class='hs-definition'>ppTyClBinderWithVarsMini</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-738"></a><span class='hs-definition'>ppTyClBinderWithVarsMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>decl</span> <span class='hs-keyglyph'>=</span>
<a name="line-739"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>tcdLName</span> <span class='hs-varid'>decl</span>
<a name="line-740"></a> <span class='hs-varid'>ns</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tyvarNames</span> <span class='hs-varop'>$</span> <span class='hs-varid'>tcdTyVars</span> <span class='hs-varid'>decl</span>
<a name="line-741"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>ppTypeApp</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ns</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppNameMini</span> <span class='hs-varid'>mdl</span> <span class='hs-varop'>.</span> <span class='hs-varid'>docNameOcc</span><span class='hs-layout'>)</span> <span class='hs-varid'>ppTyName</span>
<a name="line-742"></a>
<a name="line-743"></a><a name="ppModuleContents"></a><span class='hs-definition'>ppModuleContents</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>HtmlTable</span>
<a name="line-744"></a><span class='hs-definition'>ppModuleContents</span> <span class='hs-varid'>exports</span>
<a name="line-745"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>length</span> <span class='hs-varid'>sections</span> <span class='hs-varop'>==</span> <span class='hs-num'>0</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Nothing</span>
<a name="line-746"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"section4"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>bold</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Contents"</span>
<a name="line-747"></a> <span class='hs-varop'></></span> <span class='hs-varid'>td</span> <span class='hs-varop'><<</span> <span class='hs-varid'>dlist</span> <span class='hs-varop'><<</span> <span class='hs-varid'>concatHtml</span> <span class='hs-varid'>sections</span><span class='hs-layout'>)</span>
<a name="line-748"></a> <span class='hs-keyword'>where</span>
<a name="line-749"></a> <span class='hs-layout'>(</span><span class='hs-varid'>sections</span><span class='hs-layout'>,</span> <span class='hs-sel'>_leftovers</span><span class='hs-comment'>{-should be []-}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>process</span> <span class='hs-num'>0</span> <span class='hs-varid'>exports</span>
<a name="line-750"></a>
<a name="line-751"></a> <span class='hs-varid'>process</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span><span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-752"></a> <span class='hs-varid'>process</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span>
<a name="line-753"></a> <span class='hs-varid'>process</span> <span class='hs-varid'>n</span> <span class='hs-varid'>items</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>ExportGroup</span> <span class='hs-varid'>lev</span> <span class='hs-varid'>id0</span> <span class='hs-varid'>doc</span> <span class='hs-conop'>:</span> <span class='hs-varid'>rest</span><span class='hs-layout'>)</span>
<a name="line-754"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lev</span> <span class='hs-varop'><=</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span> <span class='hs-conid'>[]</span><span class='hs-layout'>,</span> <span class='hs-varid'>items</span> <span class='hs-layout'>)</span>
<a name="line-755"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span> <span class='hs-varid'>html</span><span class='hs-conop'>:</span><span class='hs-varid'>secs</span><span class='hs-layout'>,</span> <span class='hs-varid'>rest2</span> <span class='hs-layout'>)</span>
<a name="line-756"></a> <span class='hs-keyword'>where</span>
<a name="line-757"></a> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>dterm</span> <span class='hs-varop'><<</span> <span class='hs-varid'>linkedAnchor</span> <span class='hs-varid'>id0</span> <span class='hs-varop'><<</span> <span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-758"></a> <span class='hs-varop'>+++</span> <span class='hs-varid'>mk_subsections</span> <span class='hs-varid'>ssecs</span>
<a name="line-759"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ssecs</span><span class='hs-layout'>,</span> <span class='hs-varid'>rest1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>process</span> <span class='hs-varid'>lev</span> <span class='hs-varid'>rest</span>
<a name="line-760"></a> <span class='hs-layout'>(</span><span class='hs-varid'>secs</span><span class='hs-layout'>,</span> <span class='hs-varid'>rest2</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>process</span> <span class='hs-varid'>n</span> <span class='hs-varid'>rest1</span>
<a name="line-761"></a> <span class='hs-varid'>process</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span> <span class='hs-conop'>:</span> <span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>process</span> <span class='hs-varid'>n</span> <span class='hs-varid'>rest</span>
<a name="line-762"></a>
<a name="line-763"></a> <span class='hs-varid'>mk_subsections</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>noHtml</span>
<a name="line-764"></a> <span class='hs-varid'>mk_subsections</span> <span class='hs-varid'>ss</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ddef</span> <span class='hs-varop'><<</span> <span class='hs-varid'>dlist</span> <span class='hs-varop'><<</span> <span class='hs-varid'>concatHtml</span> <span class='hs-varid'>ss</span>
<a name="line-765"></a>
<a name="line-766"></a><a name="numberSectionHeadings"></a><span class='hs-comment'>-- we need to assign a unique id to each section heading so we can hyperlink</span>
<a name="line-767"></a><span class='hs-comment'>-- them from the contents:</span>
<a name="line-768"></a><span class='hs-definition'>numberSectionHeadings</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span>
<a name="line-769"></a><span class='hs-definition'>numberSectionHeadings</span> <span class='hs-varid'>exports</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span> <span class='hs-num'>1</span> <span class='hs-varid'>exports</span>
<a name="line-770"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>go</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span>
<a name="line-771"></a> <span class='hs-varid'>go</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span>
<a name="line-772"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportGroup</span> <span class='hs-varid'>lev</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>doc</span> <span class='hs-conop'>:</span> <span class='hs-varid'>es</span><span class='hs-layout'>)</span>
<a name="line-773"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ExportGroup</span> <span class='hs-varid'>lev</span> <span class='hs-layout'>(</span><span class='hs-varid'>show</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-varid'>doc</span> <span class='hs-conop'>:</span> <span class='hs-varid'>go</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>es</span>
<a name="line-774"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>other</span><span class='hs-conop'>:</span><span class='hs-varid'>es</span><span class='hs-layout'>)</span>
<a name="line-775"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>other</span> <span class='hs-conop'>:</span> <span class='hs-varid'>go</span> <span class='hs-varid'>n</span> <span class='hs-varid'>es</span>
<a name="line-776"></a>
<a name="line-777"></a><a name="processExport"></a><span class='hs-definition'>processExport</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-778"></a><span class='hs-definition'>processExport</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportGroup</span> <span class='hs-varid'>lev</span> <span class='hs-varid'>id0</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-779"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppDocGroup</span> <span class='hs-varid'>lev</span> <span class='hs-layout'>(</span><span class='hs-varid'>namedAnchor</span> <span class='hs-varid'>id0</span> <span class='hs-varop'><<</span> <span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-780"></a><span class='hs-definition'>processExport</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportDecl</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>insts</span><span class='hs-layout'>)</span>
<a name="line-781"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>insts</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span>
<a name="line-782"></a><span class='hs-definition'>processExport</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportNoDecl</span> <span class='hs-varid'>y</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span>
<a name="line-783"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppDocName</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-784"></a><span class='hs-definition'>processExport</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportNoDecl</span> <span class='hs-varid'>y</span> <span class='hs-varid'>subs</span><span class='hs-layout'>)</span>
<a name="line-785"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppDocName</span> <span class='hs-varid'>y</span> <span class='hs-varop'><+></span> <span class='hs-varid'>parenList</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>ppDocName</span> <span class='hs-varid'>subs</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-786"></a><span class='hs-definition'>processExport</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportDoc</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-787"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-788"></a><span class='hs-definition'>processExport</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportModule</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span>
<a name="line-789"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"module"</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppModule</span> <span class='hs-varid'>mdl</span> <span class='hs-str'>""</span><span class='hs-layout'>)</span>
<a name="line-790"></a>
<a name="line-791"></a><a name="forSummary"></a><span class='hs-definition'>forSummary</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportItem</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span>
<a name="line-792"></a><span class='hs-definition'>forSummary</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportGroup</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-793"></a><span class='hs-definition'>forSummary</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExportDoc</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-794"></a><span class='hs-definition'>forSummary</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-795"></a>
<a name="line-796"></a><a name="ppDocGroup"></a><span class='hs-definition'>ppDocGroup</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-797"></a><span class='hs-definition'>ppDocGroup</span> <span class='hs-varid'>lev</span> <span class='hs-varid'>doc</span>
<a name="line-798"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lev</span> <span class='hs-varop'>==</span> <span class='hs-num'>1</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section1"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-799"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lev</span> <span class='hs-varop'>==</span> <span class='hs-num'>2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section2"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-800"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lev</span> <span class='hs-varop'>==</span> <span class='hs-num'>3</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section3"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-801"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section4"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-802"></a>
<a name="line-803"></a><a name="declWithDoc"></a><span class='hs-definition'>declWithDoc</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-804"></a><span class='hs-definition'>declWithDoc</span> <span class='hs-conid'>True</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>html_decl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-varid'>html_decl</span>
<a name="line-805"></a><span class='hs-definition'>declWithDoc</span> <span class='hs-conid'>False</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>html_decl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span> <span class='hs-varid'>html_decl</span>
<a name="line-806"></a><span class='hs-definition'>declWithDoc</span> <span class='hs-conid'>False</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span> <span class='hs-varid'>html_decl</span> <span class='hs-keyglyph'>=</span>
<a name="line-807"></a> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span> <span class='hs-varid'>html_decl</span> <span class='hs-varop'></></span> <span class='hs-varid'>docBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-808"></a>
<a name="line-809"></a>
<a name="line-810"></a><a name="ppDecl"></a><span class='hs-comment'>-- TODO: use DeclInfo DocName or something</span>
<a name="line-811"></a><span class='hs-definition'>ppDecl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LHsDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span>
<a name="line-812"></a> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DocInstance</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>DocName</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-813"></a><span class='hs-definition'>ppDecl</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>mbDoc</span><span class='hs-layout'>,</span> <span class='hs-varid'>fnArgsDoc</span><span class='hs-layout'>)</span> <span class='hs-varid'>instances</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>decl</span> <span class='hs-keyword'>of</span>
<a name="line-814"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>TyFamily</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppTyFam</span> <span class='hs-varid'>summ</span> <span class='hs-conid'>False</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-815"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>TyData</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-816"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tcdTyPats</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppDataDecl</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>instances</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-817"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Just</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tcdTyPats</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppDataInst</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>d</span>
<a name="line-818"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>TySynonym</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-819"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tcdTyPats</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppTySyn</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-layout'>(</span><span class='hs-varid'>mbDoc</span><span class='hs-layout'>,</span> <span class='hs-varid'>fnArgsDoc</span><span class='hs-layout'>)</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-820"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Just</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tcdTyPats</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppTyInst</span> <span class='hs-varid'>summ</span> <span class='hs-conid'>False</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-821"></a> <span class='hs-conid'>TyClD</span> <span class='hs-varid'>d</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>ClassDecl</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppClassDecl</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>instances</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-822"></a> <span class='hs-conid'>SigD</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypeSig</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppFunSig</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-layout'>(</span><span class='hs-varid'>mbDoc</span><span class='hs-layout'>,</span> <span class='hs-varid'>fnArgsDoc</span><span class='hs-layout'>)</span> <span class='hs-varid'>n</span> <span class='hs-varid'>t</span> <span class='hs-varid'>unicode</span>
<a name="line-823"></a> <span class='hs-conid'>ForD</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppFor</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-layout'>(</span><span class='hs-varid'>mbDoc</span><span class='hs-layout'>,</span> <span class='hs-varid'>fnArgsDoc</span><span class='hs-layout'>)</span> <span class='hs-varid'>d</span> <span class='hs-varid'>unicode</span>
<a name="line-824"></a> <span class='hs-conid'>InstD</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-825"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>error</span> <span class='hs-str'>"declaration not supported by ppDecl"</span>
<a name="line-826"></a>
<a name="line-827"></a><a name="ppFunSig"></a><span class='hs-definition'>ppFunSig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span>
<a name="line-828"></a> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-829"></a><span class='hs-definition'>ppFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-830"></a> <span class='hs-varid'>ppTypeOrFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>doc</span>
<a name="line-831"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ppTypeSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occname</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-varid'>occname</span><span class='hs-layout'>,</span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-832"></a> <span class='hs-keyword'>where</span>
<a name="line-833"></a> <span class='hs-varid'>occname</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docNameOcc</span> <span class='hs-varid'>docname</span>
<a name="line-834"></a>
<a name="line-835"></a><a name="ppTypeOrFunSig"></a><span class='hs-definition'>ppTypeOrFunSig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span>
<a name="line-836"></a> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Html</span><span class='hs-layout'>,</span> <span class='hs-conid'>Html</span><span class='hs-layout'>,</span> <span class='hs-conid'>Html</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-837"></a><span class='hs-definition'>ppTypeOrFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>typ</span> <span class='hs-layout'>(</span><span class='hs-varid'>doc</span><span class='hs-layout'>,</span> <span class='hs-varid'>argDocs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>pref1</span><span class='hs-layout'>,</span> <span class='hs-varid'>pref2</span><span class='hs-layout'>,</span> <span class='hs-varid'>sep</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-838"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>summary</span> <span class='hs-varop'>||</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>null</span> <span class='hs-varid'>argDocs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declWithDoc</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>pref1</span>
<a name="line-839"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>pref2</span> <span class='hs-varop'></></span>
<a name="line-840"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-841"></a> <span class='hs-varid'>do_args</span> <span class='hs-num'>0</span> <span class='hs-varid'>sep</span> <span class='hs-varid'>typ</span> <span class='hs-varop'></></span>
<a name="line-842"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>case</span> <span class='hs-varid'>doc</span> <span class='hs-keyword'>of</span>
<a name="line-843"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ndocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>d</span><span class='hs-layout'>)</span>
<a name="line-844"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span><span class='hs-layout'>)</span>
<a name="line-845"></a> <span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-846"></a> <span class='hs-keyword'>where</span>
<a name="line-847"></a> <span class='hs-varid'>argDocHtml</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>lookup</span> <span class='hs-varid'>n</span> <span class='hs-varid'>argDocs</span> <span class='hs-keyword'>of</span>
<a name="line-848"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>adoc</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>docToHtml</span> <span class='hs-varid'>adoc</span>
<a name="line-849"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>noHtml</span>
<a name="line-850"></a>
<a name="line-851"></a> <span class='hs-varid'>do_largs</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>do_args</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-varid'>t</span>
<a name="line-852"></a> <span class='hs-varid'>do_args</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-853"></a> <span class='hs-varid'>do_args</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsForAllTy</span> <span class='hs-conid'>Explicit</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>ltype</span><span class='hs-layout'>)</span>
<a name="line-854"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span>
<a name="line-855"></a> <span class='hs-varid'>leader</span> <span class='hs-varop'><+></span>
<a name="line-856"></a> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>forallSymbol</span> <span class='hs-varid'>unicode</span> <span class='hs-conop'>:</span> <span class='hs-varid'>ppTyVars</span> <span class='hs-varid'>tvs</span> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>dot</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span>
<a name="line-857"></a> <span class='hs-varid'>ppLContextNoArrow</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-858"></a> <span class='hs-varop'><-></span> <span class='hs-varid'>rdocBox</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-859"></a> <span class='hs-varid'>do_largs</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>darrow</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>ltype</span>
<a name="line-860"></a> <span class='hs-varid'>do_args</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsForAllTy</span> <span class='hs-conid'>Implicit</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>ltype</span><span class='hs-layout'>)</span>
<a name="line-861"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>lctxt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-862"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>leader</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLContextNoArrow</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-863"></a> <span class='hs-varop'><-></span> <span class='hs-varid'>rdocBox</span> <span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span> <span class='hs-varop'></></span>
<a name="line-864"></a> <span class='hs-varid'>do_largs</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>darrow</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>ltype</span>
<a name="line-865"></a> <span class='hs-comment'>-- if we're not showing any 'forall' or class constraints or</span>
<a name="line-866"></a> <span class='hs-comment'>-- anything, skip having an empty line for the context.</span>
<a name="line-867"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-868"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>do_largs</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-varid'>ltype</span>
<a name="line-869"></a> <span class='hs-varid'>do_args</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsFunTy</span> <span class='hs-varid'>lt</span> <span class='hs-varid'>r</span><span class='hs-layout'>)</span>
<a name="line-870"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>leader</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLFunLhType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>lt</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span> <span class='hs-varid'>rdocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>argDocHtml</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-871"></a> <span class='hs-varop'></></span> <span class='hs-varid'>do_largs</span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>arrow</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>r</span>
<a name="line-872"></a> <span class='hs-varid'>do_args</span> <span class='hs-varid'>n</span> <span class='hs-varid'>leader</span> <span class='hs-varid'>t</span>
<a name="line-873"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>leader</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span> <span class='hs-varid'>rdocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>argDocHtml</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span>
<a name="line-874"></a>
<a name="line-875"></a>
<a name="line-876"></a><a name="ppTyVars"></a><span class='hs-definition'>ppTyVars</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>LHsTyVarBndr</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span>
<a name="line-877"></a><span class='hs-definition'>ppTyVars</span> <span class='hs-varid'>tvs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varid'>ppTyName</span> <span class='hs-layout'>(</span><span class='hs-varid'>tyvarNames</span> <span class='hs-varid'>tvs</span><span class='hs-layout'>)</span>
<a name="line-878"></a>
<a name="line-879"></a>
<a name="line-880"></a><a name="tyvarNames"></a><span class='hs-definition'>tyvarNames</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>LHsTyVarBndr</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Name</span><span class='hs-keyglyph'>]</span>
<a name="line-881"></a><span class='hs-definition'>tyvarNames</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>getName</span> <span class='hs-varop'>.</span> <span class='hs-varid'>hsTyVarName</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span><span class='hs-layout'>)</span>
<a name="line-882"></a>
<a name="line-883"></a>
<a name="line-884"></a><a name="ppFor"></a><span class='hs-definition'>ppFor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ForeignDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-885"></a><span class='hs-definition'>ppFor</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignImport</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>typ</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-886"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>name</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>unicode</span>
<a name="line-887"></a><span class='hs-definition'>ppFor</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"ppFor"</span>
<a name="line-888"></a>
<a name="line-889"></a>
<a name="line-890"></a><a name="ppTySyn"></a><span class='hs-comment'>-- we skip type patterns for now</span>
<a name="line-891"></a><span class='hs-definition'>ppTySyn</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-892"></a><span class='hs-definition'>ppTySyn</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-layout'>(</span><span class='hs-conid'>TySynonym</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-varid'>ltyvars</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>ltype</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-893"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppTypeOrFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>name</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>ltype</span><span class='hs-layout'>)</span> <span class='hs-varid'>doc</span>
<a name="line-894"></a> <span class='hs-layout'>(</span><span class='hs-varid'>full</span><span class='hs-layout'>,</span> <span class='hs-varid'>hdr</span><span class='hs-layout'>,</span> <span class='hs-varid'>spaceHtml</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>equals</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-895"></a> <span class='hs-keyword'>where</span>
<a name="line-896"></a> <span class='hs-varid'>hdr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>[</span><span class='hs-varid'>keyword</span> <span class='hs-str'>"type"</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occ</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'>++</span> <span class='hs-varid'>ppTyVars</span> <span class='hs-varid'>ltyvars</span><span class='hs-layout'>)</span>
<a name="line-897"></a> <span class='hs-varid'>full</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hdr</span> <span class='hs-varop'><+></span> <span class='hs-varid'>equals</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ltype</span>
<a name="line-898"></a> <span class='hs-varid'>occ</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docNameOcc</span> <span class='hs-varid'>name</span>
<a name="line-899"></a><span class='hs-definition'>ppTySyn</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"declaration not supported by ppTySyn"</span>
<a name="line-900"></a>
<a name="line-901"></a>
<a name="line-902"></a><a name="ppTypeSig"></a><span class='hs-definition'>ppTypeSig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-903"></a><span class='hs-definition'>ppTypeSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>nm</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>nm</span> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ty</span>
<a name="line-904"></a>
<a name="line-905"></a>
<a name="line-906"></a><a name="ppTyName"></a><span class='hs-definition'>ppTyName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Name</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-907"></a><span class='hs-definition'>ppTyName</span> <span class='hs-varid'>name</span>
<a name="line-908"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isNameSym</span> <span class='hs-varid'>name</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppName</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span>
<a name="line-909"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppName</span> <span class='hs-varid'>name</span>
<a name="line-910"></a>
<a name="line-911"></a>
<a name="line-912"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-913"></a><span class='hs-comment'>-- Type families</span>
<a name="line-914"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-915"></a>
<a name="line-916"></a>
<a name="line-917"></a><a name="ppTyFamHeader"></a><span class='hs-definition'>ppTyFamHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-918"></a><span class='hs-definition'>ppTyFamHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-919"></a>
<a name="line-920"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>case</span> <span class='hs-varid'>tcdFlavour</span> <span class='hs-varid'>decl</span> <span class='hs-keyword'>of</span>
<a name="line-921"></a> <span class='hs-conid'>TypeFamily</span>
<a name="line-922"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>associated</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"type"</span>
<a name="line-923"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"type family"</span>
<a name="line-924"></a> <span class='hs-conid'>DataFamily</span>
<a name="line-925"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>associated</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"data"</span>
<a name="line-926"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"data family"</span>
<a name="line-927"></a> <span class='hs-layout'>)</span> <span class='hs-varop'><+></span>
<a name="line-928"></a>
<a name="line-929"></a> <span class='hs-varid'>ppTyClBinderWithVars</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>decl</span> <span class='hs-varop'><+></span>
<a name="line-930"></a>
<a name="line-931"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>tcdKind</span> <span class='hs-varid'>decl</span> <span class='hs-keyword'>of</span>
<a name="line-932"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>kind</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppKind</span> <span class='hs-varid'>kind</span>
<a name="line-933"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>empty</span>
<a name="line-934"></a>
<a name="line-935"></a>
<a name="line-936"></a><a name="ppTyFam"></a><span class='hs-definition'>ppTyFam</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-937"></a> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-938"></a><span class='hs-definition'>ppTyFam</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span>
<a name="line-939"></a>
<a name="line-940"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>summary</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declWithDoc</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>mbDoc</span>
<a name="line-941"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ppTyFamHeader</span> <span class='hs-conid'>True</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-942"></a>
<a name="line-943"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>associated</span><span class='hs-layout'>,</span> <span class='hs-varid'>isJust</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-944"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>associated</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span>
<a name="line-945"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>instances</span><span class='hs-layout'>,</span> <span class='hs-varid'>isJust</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-946"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>instances</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span>
<a name="line-947"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isJust</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span><span class='hs-varid'>doc</span> <span class='hs-varop'></></span> <span class='hs-varid'>instancesBit</span><span class='hs-layout'>)</span>
<a name="line-948"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>instancesBit</span>
<a name="line-949"></a>
<a name="line-950"></a> <span class='hs-keyword'>where</span>
<a name="line-951"></a> <span class='hs-varid'>docname</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tcdName</span> <span class='hs-varid'>decl</span>
<a name="line-952"></a>
<a name="line-953"></a> <span class='hs-varid'>header_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppTyFamHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-954"></a>
<a name="line-955"></a> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ndocBox</span> <span class='hs-varop'>.</span> <span class='hs-varid'>docToHtml</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromJust</span> <span class='hs-varop'>$</span> <span class='hs-varid'>mbDoc</span>
<a name="line-956"></a>
<a name="line-957"></a> <span class='hs-varid'>instId</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>collapseId</span> <span class='hs-layout'>(</span><span class='hs-varid'>getName</span> <span class='hs-varid'>docname</span><span class='hs-layout'>)</span>
<a name="line-958"></a>
<a name="line-959"></a> <span class='hs-varid'>instancesBit</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>instHdr</span> <span class='hs-varid'>instId</span> <span class='hs-varop'></></span>
<a name="line-960"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-961"></a> <span class='hs-varid'>collapsed</span> <span class='hs-varid'>thediv</span> <span class='hs-varid'>instId</span> <span class='hs-layout'>(</span>
<a name="line-962"></a> <span class='hs-varid'>spacedTable1</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-963"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppDocInstance</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>instances</span><span class='hs-layout'>)</span>
<a name="line-964"></a> <span class='hs-layout'>)</span>
<a name="line-965"></a> <span class='hs-layout'>)</span>
<a name="line-966"></a>
<a name="line-967"></a> <span class='hs-comment'>-- TODO: get the instances</span>
<a name="line-968"></a> <span class='hs-varid'>instances</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span>
<a name="line-969"></a>
<a name="line-970"></a>
<a name="line-971"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-972"></a><span class='hs-comment'>-- Indexed data types</span>
<a name="line-973"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-974"></a>
<a name="line-975"></a>
<a name="line-976"></a><a name="ppDataInst"></a><span class='hs-definition'>ppDataInst</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span>
<a name="line-977"></a><span class='hs-definition'>ppDataInst</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span>
<a name="line-978"></a>
<a name="line-979"></a>
<a name="line-980"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-981"></a><span class='hs-comment'>-- Indexed newtypes</span>
<a name="line-982"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-983"></a>
<a name="line-984"></a><span class='hs-comment'>-- TODO</span>
<a name="line-985"></a><span class='hs-comment'>-- ppNewTyInst = undefined</span>
<a name="line-986"></a>
<a name="line-987"></a>
<a name="line-988"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-989"></a><span class='hs-comment'>-- Indexed types</span>
<a name="line-990"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-991"></a>
<a name="line-992"></a>
<a name="line-993"></a><a name="ppTyInst"></a><span class='hs-definition'>ppTyInst</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-994"></a> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-995"></a><span class='hs-definition'>ppTyInst</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span>
<a name="line-996"></a>
<a name="line-997"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>summary</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declWithDoc</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>mbDoc</span>
<a name="line-998"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ppTyInstHeader</span> <span class='hs-conid'>True</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-999"></a>
<a name="line-1000"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isJust</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>doc</span>
<a name="line-1001"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>header_</span>
<a name="line-1002"></a>
<a name="line-1003"></a> <span class='hs-keyword'>where</span>
<a name="line-1004"></a> <span class='hs-varid'>docname</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tcdName</span> <span class='hs-varid'>decl</span>
<a name="line-1005"></a>
<a name="line-1006"></a> <span class='hs-varid'>header_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppTyInstHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>associated</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-1007"></a>
<a name="line-1008"></a> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyword'>of</span>
<a name="line-1009"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ndocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>d</span><span class='hs-layout'>)</span>
<a name="line-1010"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1011"></a>
<a name="line-1012"></a>
<a name="line-1013"></a><a name="ppTyInstHeader"></a><span class='hs-definition'>ppTyInstHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1014"></a><span class='hs-definition'>ppTyInstHeader</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-1015"></a> <span class='hs-varid'>keyword</span> <span class='hs-str'>"type instance"</span> <span class='hs-varop'><+></span>
<a name="line-1016"></a> <span class='hs-varid'>ppAppNameTypes</span> <span class='hs-layout'>(</span><span class='hs-varid'>tcdName</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span> <span class='hs-varid'>typeArgs</span> <span class='hs-varid'>unicode</span>
<a name="line-1017"></a> <span class='hs-keyword'>where</span>
<a name="line-1018"></a> <span class='hs-varid'>typeArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromJust</span> <span class='hs-varop'>.</span> <span class='hs-varid'>tcdTyPats</span> <span class='hs-varop'>$</span> <span class='hs-varid'>decl</span>
<a name="line-1019"></a>
<a name="line-1020"></a>
<a name="line-1021"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1022"></a><span class='hs-comment'>-- Associated Types</span>
<a name="line-1023"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1024"></a>
<a name="line-1025"></a>
<a name="line-1026"></a><a name="ppAssocType"></a><span class='hs-definition'>ppAssocType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LTyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1027"></a><span class='hs-definition'>ppAssocType</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>doc</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-1028"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>decl</span> <span class='hs-keyword'>of</span>
<a name="line-1029"></a> <span class='hs-conid'>TyFamily</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppTyFam</span> <span class='hs-varid'>summ</span> <span class='hs-conid'>True</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-layout'>(</span><span class='hs-varid'>fst</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span>
<a name="line-1030"></a> <span class='hs-conid'>TySynonym</span> <span class='hs-layout'>{</span><span class='hs-layout'>}</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppTySyn</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span>
<a name="line-1031"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>error</span> <span class='hs-str'>"declaration type not supported by ppAssocType"</span>
<a name="line-1032"></a>
<a name="line-1033"></a>
<a name="line-1034"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1035"></a><span class='hs-comment'>-- TyClDecl helpers</span>
<a name="line-1036"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1037"></a>
<a name="line-1038"></a>
<a name="line-1039"></a><a name="ppTyClBinderWithVars"></a><span class='hs-comment'>-- | Print a type family / newtype / data / class binder and its variables </span>
<a name="line-1040"></a><span class='hs-definition'>ppTyClBinderWithVars</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1041"></a><span class='hs-definition'>ppTyClBinderWithVars</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>decl</span> <span class='hs-keyglyph'>=</span>
<a name="line-1042"></a> <span class='hs-varid'>ppAppDocNameNames</span> <span class='hs-varid'>summ</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>tcdLName</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>tyvarNames</span> <span class='hs-varop'>$</span> <span class='hs-varid'>tcdTyVars</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span>
<a name="line-1043"></a>
<a name="line-1044"></a>
<a name="line-1045"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1046"></a><span class='hs-comment'>-- Type applications</span>
<a name="line-1047"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1048"></a>
<a name="line-1049"></a>
<a name="line-1050"></a><a name="ppAppNameTypes"></a><span class='hs-comment'>-- | Print an application of a DocName and a list of HsTypes</span>
<a name="line-1051"></a><span class='hs-definition'>ppAppNameTypes</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1052"></a><span class='hs-definition'>ppAppNameTypes</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ts</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppTypeApp</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ts</span> <span class='hs-varid'>ppDocName</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppParendType</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-1053"></a>
<a name="line-1054"></a>
<a name="line-1055"></a><a name="ppAppDocNameNames"></a><span class='hs-comment'>-- | Print an application of a DocName and a list of Names </span>
<a name="line-1056"></a><span class='hs-definition'>ppAppDocNameNames</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Name</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1057"></a><span class='hs-definition'>ppAppDocNameNames</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ns</span> <span class='hs-keyglyph'>=</span>
<a name="line-1058"></a> <span class='hs-varid'>ppTypeApp</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ns</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summ</span> <span class='hs-varop'>.</span> <span class='hs-varid'>docNameOcc</span><span class='hs-layout'>)</span> <span class='hs-varid'>ppTyName</span>
<a name="line-1059"></a>
<a name="line-1060"></a>
<a name="line-1061"></a><a name="ppTypeApp"></a><span class='hs-comment'>-- | General printing of type applications</span>
<a name="line-1062"></a><span class='hs-definition'>ppTypeApp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1063"></a><span class='hs-definition'>ppTypeApp</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>t1</span><span class='hs-conop'>:</span><span class='hs-varid'>t2</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-varid'>ppDN</span> <span class='hs-varid'>ppT</span>
<a name="line-1064"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>operator</span><span class='hs-layout'>,</span> <span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>null</span> <span class='hs-varop'>$</span> <span class='hs-varid'>rest</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-varid'>opApp</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>ppT</span> <span class='hs-varid'>rest</span><span class='hs-layout'>)</span>
<a name="line-1065"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>operator</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>opApp</span>
<a name="line-1066"></a> <span class='hs-keyword'>where</span>
<a name="line-1067"></a> <span class='hs-varid'>operator</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>isNameSym</span> <span class='hs-varop'>.</span> <span class='hs-varid'>getName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>n</span>
<a name="line-1068"></a> <span class='hs-varid'>opApp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppT</span> <span class='hs-varid'>t1</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppDN</span> <span class='hs-varid'>n</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppT</span> <span class='hs-varid'>t2</span>
<a name="line-1069"></a>
<a name="line-1070"></a><span class='hs-definition'>ppTypeApp</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ts</span> <span class='hs-varid'>ppDN</span> <span class='hs-varid'>ppT</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppDN</span> <span class='hs-varid'>n</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>ppT</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span>
<a name="line-1071"></a>
<a name="line-1072"></a>
<a name="line-1073"></a><span class='hs-comment'>-------------------------------------------------------------------------------</span>
<a name="line-1074"></a><span class='hs-comment'>-- Contexts </span>
<a name="line-1075"></a><span class='hs-comment'>-------------------------------------------------------------------------------</span>
<a name="line-1076"></a>
<a name="line-1077"></a>
<a name="line-1078"></a><a name="ppLContext"></a><span class='hs-definition'>ppLContext</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppLContextNoArrow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsContext</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1079"></a><span class='hs-definition'>ppLContext</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppContext</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span>
<a name="line-1080"></a><a name="ppLContextNoArrow"></a><span class='hs-definition'>ppLContextNoArrow</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppContextNoArrow</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span>
<a name="line-1081"></a>
<a name="line-1082"></a>
<a name="line-1083"></a><a name="ppContextNoArrow"></a><span class='hs-definition'>ppContextNoArrow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HsContext</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1084"></a><span class='hs-definition'>ppContextNoArrow</span> <span class='hs-conid'>[]</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>empty</span>
<a name="line-1085"></a><span class='hs-definition'>ppContextNoArrow</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pp_hs_context</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>unLoc</span> <span class='hs-varid'>cxt</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1086"></a>
<a name="line-1087"></a>
<a name="line-1088"></a><a name="ppContextNoLocs"></a><span class='hs-definition'>ppContextNoLocs</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>HsPred</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1089"></a><span class='hs-definition'>ppContextNoLocs</span> <span class='hs-conid'>[]</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>empty</span>
<a name="line-1090"></a><span class='hs-definition'>ppContextNoLocs</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pp_hs_context</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>darrow</span> <span class='hs-varid'>unicode</span>
<a name="line-1091"></a>
<a name="line-1092"></a>
<a name="line-1093"></a><a name="ppContext"></a><span class='hs-definition'>ppContext</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HsContext</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1094"></a><span class='hs-definition'>ppContext</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppContextNoLocs</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>unLoc</span> <span class='hs-varid'>cxt</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1095"></a>
<a name="line-1096"></a>
<a name="line-1097"></a><a name="pp_hs_context"></a><span class='hs-definition'>pp_hs_context</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>HsPred</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1098"></a><span class='hs-definition'>pp_hs_context</span> <span class='hs-conid'>[]</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>empty</span>
<a name="line-1099"></a><span class='hs-definition'>pp_hs_context</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>p</span><span class='hs-keyglyph'>]</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppPred</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>p</span>
<a name="line-1100"></a><span class='hs-definition'>pp_hs_context</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parenList</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppPred</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>cxt</span><span class='hs-layout'>)</span>
<a name="line-1101"></a>
<a name="line-1102"></a>
<a name="line-1103"></a><a name="ppPred"></a><span class='hs-definition'>ppPred</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsPred</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1104"></a><span class='hs-definition'>ppPred</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsClassP</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppAppNameTypes</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>unLoc</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1105"></a><span class='hs-definition'>ppPred</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsEqualP</span> <span class='hs-varid'>t1</span> <span class='hs-varid'>t2</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>t1</span> <span class='hs-varop'><+></span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"~"</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>t2</span>
<a name="line-1106"></a><span class='hs-definition'>ppPred</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsIParam</span> <span class='hs-layout'>(</span><span class='hs-conid'>IPName</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span>
<a name="line-1107"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"?"</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>ppDocName</span> <span class='hs-varid'>n</span> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>t</span>
<a name="line-1108"></a>
<a name="line-1109"></a>
<a name="line-1110"></a><span class='hs-comment'>-------------------------------------------------------------------------------</span>
<a name="line-1111"></a><span class='hs-comment'>-- Class declarations</span>
<a name="line-1112"></a><span class='hs-comment'>-------------------------------------------------------------------------------</span>
<a name="line-1113"></a>
<a name="line-1114"></a>
<a name="line-1115"></a><a name="ppClassHdr"></a><span class='hs-definition'>ppClassHdr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Located</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>LHsPred</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocName</span>
<a name="line-1116"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsTyVarBndr</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>[</span><span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-1117"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1118"></a><span class='hs-definition'>ppClassHdr</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>n</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>fds</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-1119"></a> <span class='hs-varid'>keyword</span> <span class='hs-str'>"class"</span>
<a name="line-1120"></a> <span class='hs-varop'><+></span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>null</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>lctxt</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>ppLContext</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>unicode</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>empty</span><span class='hs-layout'>)</span>
<a name="line-1121"></a> <span class='hs-varop'><+></span> <span class='hs-varid'>ppAppDocNameNames</span> <span class='hs-varid'>summ</span> <span class='hs-varid'>n</span> <span class='hs-layout'>(</span><span class='hs-varid'>tyvarNames</span> <span class='hs-varop'>$</span> <span class='hs-varid'>tvs</span><span class='hs-layout'>)</span>
<a name="line-1122"></a> <span class='hs-varop'><+></span> <span class='hs-varid'>ppFds</span> <span class='hs-varid'>fds</span> <span class='hs-varid'>unicode</span>
<a name="line-1123"></a>
<a name="line-1124"></a>
<a name="line-1125"></a><a name="ppFds"></a><span class='hs-definition'>ppFds</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>[</span><span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1126"></a><span class='hs-definition'>ppFds</span> <span class='hs-varid'>fds</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-1127"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>fds</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>noHtml</span> <span class='hs-keyword'>else</span>
<a name="line-1128"></a> <span class='hs-varid'>char</span> <span class='hs-chr'>'|'</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>punctuate</span> <span class='hs-varid'>comma</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>fundep</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span><span class='hs-layout'>)</span> <span class='hs-varid'>fds</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1129"></a> <span class='hs-keyword'>where</span>
<a name="line-1130"></a> <span class='hs-varid'>fundep</span> <span class='hs-layout'>(</span><span class='hs-varid'>vars1</span><span class='hs-layout'>,</span><span class='hs-varid'>vars2</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>ppDocName</span> <span class='hs-varid'>vars1</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span> <span class='hs-varid'>arrow</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span>
<a name="line-1131"></a> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>ppDocName</span> <span class='hs-varid'>vars2</span><span class='hs-layout'>)</span>
<a name="line-1132"></a>
<a name="line-1133"></a><a name="ppShortClassDecl"></a><span class='hs-definition'>ppShortClassDecl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>DocName</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1134"></a><span class='hs-definition'>ppShortClassDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-layout'>(</span><span class='hs-conid'>ClassDecl</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>lname</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>fds</span> <span class='hs-varid'>sigs</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>ats</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span>
<a name="line-1135"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>sigs</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>null</span> <span class='hs-varid'>ats</span>
<a name="line-1136"></a> <span class='hs-keyword'>then</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>summary</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>declBox</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span> <span class='hs-varid'>hdr</span>
<a name="line-1137"></a> <span class='hs-keyword'>else</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>summary</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>declBox</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>hdr</span> <span class='hs-varop'><+></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"where"</span><span class='hs-layout'>)</span>
<a name="line-1138"></a> <span class='hs-varop'></></span>
<a name="line-1139"></a> <span class='hs-layout'>(</span>
<a name="line-1140"></a> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span>
<a name="line-1141"></a> <span class='hs-varid'>aboves</span>
<a name="line-1142"></a> <span class='hs-layout'>(</span>
<a name="line-1143"></a> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>ppAssocType</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>at</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>at</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ats</span>
<a name="line-1144"></a> <span class='hs-layout'>,</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lookupAnySubdoc</span> <span class='hs-layout'>(</span><span class='hs-varid'>tcdName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>unL</span> <span class='hs-varid'>at</span><span class='hs-layout'>)</span> <span class='hs-varid'>subdocs</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'>++</span>
<a name="line-1145"></a>
<a name="line-1146"></a> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>ppFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>n</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>unicode</span>
<a name="line-1147"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypeSig</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>typ</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>sigs</span>
<a name="line-1148"></a> <span class='hs-layout'>,</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lookupAnySubdoc</span> <span class='hs-varid'>n</span> <span class='hs-varid'>subdocs</span> <span class='hs-keyglyph'>]</span>
<a name="line-1149"></a> <span class='hs-layout'>)</span>
<a name="line-1150"></a> <span class='hs-layout'>)</span>
<a name="line-1151"></a> <span class='hs-keyword'>where</span>
<a name="line-1152"></a> <span class='hs-varid'>hdr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppClassHdr</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>lctxt</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>lname</span><span class='hs-layout'>)</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>fds</span> <span class='hs-varid'>unicode</span>
<a name="line-1153"></a> <span class='hs-varid'>nm</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-varid'>lname</span>
<a name="line-1154"></a><span class='hs-definition'>ppShortClassDecl</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"declaration type not supported by ppShortClassDecl"</span>
<a name="line-1155"></a>
<a name="line-1156"></a>
<a name="line-1157"></a>
<a name="line-1158"></a><a name="ppClassDecl"></a><span class='hs-definition'>ppClassDecl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DocInstance</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span>
<a name="line-1159"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>DocName</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-1160"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1161"></a><span class='hs-definition'>ppClassDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>instances</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>subdocs</span>
<a name="line-1162"></a> <span class='hs-varid'>decl</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>ClassDecl</span> <span class='hs-varid'>lctxt</span> <span class='hs-varid'>lname</span> <span class='hs-varid'>ltyvars</span> <span class='hs-varid'>lfds</span> <span class='hs-varid'>lsigs</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>ats</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1163"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>summary</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppShortClassDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span>
<a name="line-1164"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>classheader</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span><span class='hs-varid'>classdoc</span> <span class='hs-varop'></></span> <span class='hs-varid'>body_</span> <span class='hs-varop'></></span> <span class='hs-varid'>instancesBit</span><span class='hs-layout'>)</span>
<a name="line-1165"></a> <span class='hs-keyword'>where</span>
<a name="line-1166"></a> <span class='hs-varid'>classheader</span>
<a name="line-1167"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>lsigs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span> <span class='hs-layout'>(</span><span class='hs-varid'>hdr</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-1168"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>nm</span> <span class='hs-layout'>(</span><span class='hs-varid'>hdr</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"where"</span><span class='hs-layout'>)</span>
<a name="line-1169"></a>
<a name="line-1170"></a> <span class='hs-varid'>nm</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>tcdLName</span> <span class='hs-varid'>decl</span>
<a name="line-1171"></a>
<a name="line-1172"></a> <span class='hs-varid'>hdr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppClassHdr</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>lctxt</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>lname</span><span class='hs-layout'>)</span> <span class='hs-varid'>ltyvars</span> <span class='hs-varid'>lfds</span>
<a name="line-1173"></a>
<a name="line-1174"></a> <span class='hs-varid'>classdoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyword'>of</span>
<a name="line-1175"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1176"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ndocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>d</span><span class='hs-layout'>)</span>
<a name="line-1177"></a>
<a name="line-1178"></a> <span class='hs-varid'>body_</span>
<a name="line-1179"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>lsigs</span><span class='hs-layout'>,</span> <span class='hs-varid'>null</span> <span class='hs-varid'>ats</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1180"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>ats</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>s8</span> <span class='hs-varop'></></span> <span class='hs-varid'>methHdr</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>methodTable</span>
<a name="line-1181"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>s8</span> <span class='hs-varop'></></span> <span class='hs-varid'>atHdr</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>atTable</span> <span class='hs-varop'></></span>
<a name="line-1182"></a> <span class='hs-varid'>s8</span> <span class='hs-varop'></></span> <span class='hs-varid'>methHdr</span> <span class='hs-varop'></></span> <span class='hs-varid'>bodyBox</span> <span class='hs-varop'><<</span> <span class='hs-varid'>methodTable</span>
<a name="line-1183"></a>
<a name="line-1184"></a> <span class='hs-varid'>methodTable</span> <span class='hs-keyglyph'>=</span>
<a name="line-1185"></a> <span class='hs-varid'>abovesSep</span> <span class='hs-varid'>s8</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>ppFunSig</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>n</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>unicode</span>
<a name="line-1186"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypeSig</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>typ</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lsigs</span>
<a name="line-1187"></a> <span class='hs-layout'>,</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lookupAnySubdoc</span> <span class='hs-varid'>n</span> <span class='hs-varid'>subdocs</span> <span class='hs-keyglyph'>]</span>
<a name="line-1188"></a>
<a name="line-1189"></a> <span class='hs-varid'>atTable</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>abovesSep</span> <span class='hs-varid'>s8</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>ppAssocType</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>doc</span> <span class='hs-varid'>at</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>at</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>ats</span>
<a name="line-1190"></a> <span class='hs-layout'>,</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lookupAnySubdoc</span> <span class='hs-layout'>(</span><span class='hs-varid'>tcdName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>unL</span> <span class='hs-varid'>at</span><span class='hs-layout'>)</span> <span class='hs-varid'>subdocs</span> <span class='hs-keyglyph'>]</span>
<a name="line-1191"></a>
<a name="line-1192"></a> <span class='hs-varid'>instId</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>collapseId</span> <span class='hs-layout'>(</span><span class='hs-varid'>getName</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span>
<a name="line-1193"></a> <span class='hs-varid'>instancesBit</span>
<a name="line-1194"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>instances</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1195"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-1196"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>s8</span> <span class='hs-varop'></></span> <span class='hs-varid'>instHdr</span> <span class='hs-varid'>instId</span> <span class='hs-varop'></></span>
<a name="line-1197"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-1198"></a> <span class='hs-varid'>collapsed</span> <span class='hs-varid'>thediv</span> <span class='hs-varid'>instId</span> <span class='hs-layout'>(</span>
<a name="line-1199"></a> <span class='hs-varid'>spacedTable1</span> <span class='hs-varop'><<</span> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppDocInstance</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>instances</span><span class='hs-layout'>)</span>
<a name="line-1200"></a> <span class='hs-layout'>)</span>
<a name="line-1201"></a><span class='hs-definition'>ppClassDecl</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"declaration type not supported by ppShortClassDecl"</span>
<a name="line-1202"></a>
<a name="line-1203"></a>
<a name="line-1204"></a><a name="ppDocInstance"></a><span class='hs-comment'>-- | Print a possibly commented instance. The instance header is printed inside</span>
<a name="line-1205"></a><span class='hs-comment'>-- an 'argBox'. The comment is printed to the right of the box in normal comment</span>
<a name="line-1206"></a><span class='hs-comment'>-- style.</span>
<a name="line-1207"></a><span class='hs-definition'>ppDocInstance</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocInstance</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1208"></a><span class='hs-definition'>ppDocInstance</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>instHead</span><span class='hs-layout'>,</span> <span class='hs-varid'>maybeDoc</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-1209"></a> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppInstHead</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>instHead</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span> <span class='hs-varid'>maybeRDocBox</span> <span class='hs-varid'>maybeDoc</span>
<a name="line-1210"></a>
<a name="line-1211"></a>
<a name="line-1212"></a><a name="ppInstHead"></a><span class='hs-definition'>ppInstHead</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>InstHead</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1213"></a><span class='hs-definition'>ppInstHead</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</span><span class='hs-layout'>,</span> <span class='hs-varid'>n</span><span class='hs-layout'>,</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppAppNameTypes</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ts</span> <span class='hs-varid'>unicode</span>
<a name="line-1214"></a><span class='hs-definition'>ppInstHead</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctxt</span><span class='hs-layout'>,</span> <span class='hs-varid'>n</span><span class='hs-layout'>,</span> <span class='hs-varid'>ts</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppContextNoLocs</span> <span class='hs-varid'>ctxt</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppAppNameTypes</span> <span class='hs-varid'>n</span> <span class='hs-varid'>ts</span> <span class='hs-varid'>unicode</span>
<a name="line-1215"></a>
<a name="line-1216"></a>
<a name="line-1217"></a><a name="lookupAnySubdoc"></a><span class='hs-definition'>lookupAnySubdoc</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span> <span class='hs-varid'>name1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span>
<a name="line-1218"></a> <span class='hs-varid'>name1</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>name1</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-varid'>name2</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocForDecl</span> <span class='hs-varid'>name2</span>
<a name="line-1219"></a><span class='hs-definition'>lookupAnySubdoc</span> <span class='hs-varid'>n</span> <span class='hs-varid'>subdocs</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>lookup</span> <span class='hs-varid'>n</span> <span class='hs-varid'>subdocs</span> <span class='hs-keyword'>of</span>
<a name="line-1220"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>noDocForDecl</span>
<a name="line-1221"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>docs</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>docs</span>
<a name="line-1222"></a>
<a name="line-1223"></a>
<a name="line-1224"></a>
<a name="line-1225"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span>
<a name="line-1226"></a><span class='hs-comment'>-- Data & newtype declarations</span>
<a name="line-1227"></a>
<a name="line-1228"></a>
<a name="line-1229"></a><a name="ppShortDataDecl"></a><span class='hs-comment'>-- TODO: print contexts</span>
<a name="line-1230"></a><span class='hs-definition'>ppShortDataDecl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1231"></a><span class='hs-definition'>ppShortDataDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span>
<a name="line-1232"></a>
<a name="line-1233"></a> <span class='hs-keyglyph'>|</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>lcon</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>cons</span><span class='hs-layout'>,</span> <span class='hs-conid'>ResTyH98</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>=</span>
<a name="line-1234"></a> <span class='hs-varid'>ppDataHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span>
<a name="line-1235"></a> <span class='hs-varop'><+></span> <span class='hs-varid'>equals</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppShortConstr</span> <span class='hs-varid'>summary</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>lcon</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1236"></a>
<a name="line-1237"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>cons</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppDataHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span>
<a name="line-1238"></a>
<a name="line-1239"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-1240"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>resTy</span> <span class='hs-keyword'>of</span>
<a name="line-1241"></a> <span class='hs-conid'>ResTyH98</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>dataHeader</span> <span class='hs-varop'></></span>
<a name="line-1242"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-1243"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>zipWith</span> <span class='hs-varid'>doConstr</span> <span class='hs-layout'>(</span><span class='hs-chr'>'='</span><span class='hs-conop'>:</span><span class='hs-varid'>repeat</span> <span class='hs-chr'>'|'</span><span class='hs-layout'>)</span> <span class='hs-varid'>cons</span><span class='hs-layout'>)</span>
<a name="line-1244"></a> <span class='hs-layout'>)</span>
<a name="line-1245"></a> <span class='hs-conid'>ResTyGADT</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>dataHeader</span> <span class='hs-varop'></></span>
<a name="line-1246"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-1247"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>doGADTConstr</span> <span class='hs-varid'>cons</span><span class='hs-layout'>)</span>
<a name="line-1248"></a> <span class='hs-layout'>)</span>
<a name="line-1249"></a> <span class='hs-layout'>)</span>
<a name="line-1250"></a>
<a name="line-1251"></a> <span class='hs-keyword'>where</span>
<a name="line-1252"></a> <span class='hs-varid'>dataHeader</span> <span class='hs-keyglyph'>=</span>
<a name="line-1253"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>summary</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>declBox</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span><span class='hs-layout'>)</span>
<a name="line-1254"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>ppDataHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span>
<a name="line-1255"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>resTy</span> <span class='hs-keyword'>of</span> <span class='hs-conid'>ResTyGADT</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"where"</span><span class='hs-layout'>;</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>empty</span><span class='hs-layout'>)</span>
<a name="line-1256"></a>
<a name="line-1257"></a> <span class='hs-varid'>doConstr</span> <span class='hs-varid'>c</span> <span class='hs-varid'>con</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>c</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppShortConstr</span> <span class='hs-varid'>summary</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-1258"></a> <span class='hs-varid'>doGADTConstr</span> <span class='hs-varid'>con</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppShortConstr</span> <span class='hs-varid'>summary</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-1259"></a>
<a name="line-1260"></a> <span class='hs-varid'>docname</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>tcdLName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>dataDecl</span>
<a name="line-1261"></a> <span class='hs-varid'>cons</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tcdCons</span> <span class='hs-varid'>dataDecl</span>
<a name="line-1262"></a> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>con_res</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>head</span><span class='hs-layout'>)</span> <span class='hs-varid'>cons</span>
<a name="line-1263"></a>
<a name="line-1264"></a><a name="ppDataDecl"></a><span class='hs-definition'>ppDataDecl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DocInstance</span> <span class='hs-conid'>DocName</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span>
<a name="line-1265"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>DocName</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span>
<a name="line-1266"></a> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1267"></a><span class='hs-definition'>ppDataDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>instances</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span>
<a name="line-1268"></a>
<a name="line-1269"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>summary</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declWithDoc</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-varid'>mbDoc</span>
<a name="line-1270"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ppShortDataDecl</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span>
<a name="line-1271"></a>
<a name="line-1272"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-1273"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>validTable</span> <span class='hs-keyword'>then</span> <span class='hs-layout'>(</span><span class='hs-varop'></></span><span class='hs-layout'>)</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>const</span><span class='hs-layout'>)</span> <span class='hs-varid'>header_</span> <span class='hs-varop'>$</span>
<a name="line-1274"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-1275"></a> <span class='hs-varid'>datadoc</span> <span class='hs-varop'></></span>
<a name="line-1276"></a> <span class='hs-varid'>constrBit</span> <span class='hs-varop'></></span>
<a name="line-1277"></a> <span class='hs-varid'>instancesBit</span>
<a name="line-1278"></a> <span class='hs-layout'>)</span>
<a name="line-1279"></a>
<a name="line-1280"></a>
<a name="line-1281"></a> <span class='hs-keyword'>where</span>
<a name="line-1282"></a> <span class='hs-varid'>docname</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>tcdLName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>dataDecl</span>
<a name="line-1283"></a> <span class='hs-varid'>cons</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tcdCons</span> <span class='hs-varid'>dataDecl</span>
<a name="line-1284"></a> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>con_res</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>head</span><span class='hs-layout'>)</span> <span class='hs-varid'>cons</span>
<a name="line-1285"></a>
<a name="line-1286"></a> <span class='hs-varid'>header_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>topDeclBox</span> <span class='hs-varid'>links</span> <span class='hs-varid'>loc</span> <span class='hs-varid'>docname</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppDataHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>dataDecl</span> <span class='hs-varid'>unicode</span>
<a name="line-1287"></a> <span class='hs-varop'><+></span> <span class='hs-varid'>whereBit</span><span class='hs-layout'>)</span>
<a name="line-1288"></a>
<a name="line-1289"></a> <span class='hs-varid'>whereBit</span>
<a name="line-1290"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>cons</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>empty</span>
<a name="line-1291"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>resTy</span> <span class='hs-keyword'>of</span>
<a name="line-1292"></a> <span class='hs-conid'>ResTyGADT</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"where"</span>
<a name="line-1293"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>empty</span>
<a name="line-1294"></a>
<a name="line-1295"></a> <span class='hs-varid'>constrTable</span>
<a name="line-1296"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>any</span> <span class='hs-varid'>isRecCon</span> <span class='hs-varid'>cons</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>spacedTable5</span>
<a name="line-1297"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>spacedTable1</span>
<a name="line-1298"></a>
<a name="line-1299"></a> <span class='hs-varid'>datadoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mbDoc</span> <span class='hs-keyword'>of</span>
<a name="line-1300"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ndocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-1301"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1302"></a>
<a name="line-1303"></a> <span class='hs-varid'>constrBit</span>
<a name="line-1304"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>cons</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1305"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>constrHdr</span> <span class='hs-varop'></></span> <span class='hs-layout'>(</span>
<a name="line-1306"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>constrTable</span> <span class='hs-varop'><<</span>
<a name="line-1307"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppSideBySideConstr</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>cons</span><span class='hs-layout'>)</span>
<a name="line-1308"></a> <span class='hs-layout'>)</span>
<a name="line-1309"></a>
<a name="line-1310"></a> <span class='hs-varid'>instId</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>collapseId</span> <span class='hs-layout'>(</span><span class='hs-varid'>getName</span> <span class='hs-varid'>docname</span><span class='hs-layout'>)</span>
<a name="line-1311"></a>
<a name="line-1312"></a> <span class='hs-varid'>instancesBit</span>
<a name="line-1313"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>instances</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1314"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span>
<a name="line-1315"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>instHdr</span> <span class='hs-varid'>instId</span> <span class='hs-varop'></></span>
<a name="line-1316"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-1317"></a> <span class='hs-varid'>collapsed</span> <span class='hs-varid'>thediv</span> <span class='hs-varid'>instId</span> <span class='hs-layout'>(</span>
<a name="line-1318"></a> <span class='hs-varid'>spacedTable1</span> <span class='hs-varop'><<</span> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppDocInstance</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>instances</span>
<a name="line-1319"></a> <span class='hs-layout'>)</span>
<a name="line-1320"></a> <span class='hs-layout'>)</span>
<a name="line-1321"></a>
<a name="line-1322"></a> <span class='hs-varid'>validTable</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>isJust</span> <span class='hs-varid'>mbDoc</span> <span class='hs-varop'>||</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>cons</span><span class='hs-layout'>)</span> <span class='hs-varop'>||</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>instances</span><span class='hs-layout'>)</span>
<a name="line-1323"></a>
<a name="line-1324"></a>
<a name="line-1325"></a><a name="isRecCon"></a><span class='hs-definition'>isRecCon</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-conid'>ConDecl</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span>
<a name="line-1326"></a><span class='hs-definition'>isRecCon</span> <span class='hs-varid'>lcon</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_details</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>lcon</span><span class='hs-layout'>)</span> <span class='hs-keyword'>of</span>
<a name="line-1327"></a> <span class='hs-conid'>RecCon</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>True</span>
<a name="line-1328"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>False</span>
<a name="line-1329"></a>
<a name="line-1330"></a>
<a name="line-1331"></a><a name="ppShortConstr"></a><span class='hs-definition'>ppShortConstr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ConDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1332"></a><span class='hs-definition'>ppShortConstr</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>con</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_res</span> <span class='hs-varid'>con</span> <span class='hs-keyword'>of</span>
<a name="line-1333"></a> <span class='hs-conid'>ResTyH98</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_details</span> <span class='hs-varid'>con</span> <span class='hs-keyword'>of</span>
<a name="line-1334"></a> <span class='hs-conid'>PrefixCon</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>header_</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occ</span> <span class='hs-conop'>:</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span>
<a name="line-1335"></a> <span class='hs-conid'>RecCon</span> <span class='hs-varid'>fields</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>header_</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occ</span> <span class='hs-varop'><+></span>
<a name="line-1336"></a> <span class='hs-varid'>doRecordFields</span> <span class='hs-varid'>fields</span>
<a name="line-1337"></a> <span class='hs-conid'>InfixCon</span> <span class='hs-varid'>arg1</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>header_</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'>+++</span>
<a name="line-1338"></a> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occ</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>arg2</span><span class='hs-keyglyph'>]</span>
<a name="line-1339"></a>
<a name="line-1340"></a> <span class='hs-conid'>ResTyGADT</span> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_details</span> <span class='hs-varid'>con</span> <span class='hs-keyword'>of</span>
<a name="line-1341"></a> <span class='hs-comment'>-- prefix & infix could use hsConDeclArgTys if it seemed to</span>
<a name="line-1342"></a> <span class='hs-comment'>-- simplify the code.</span>
<a name="line-1343"></a> <span class='hs-conid'>PrefixCon</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>doGADTCon</span> <span class='hs-varid'>args</span> <span class='hs-varid'>resTy</span>
<a name="line-1344"></a> <span class='hs-comment'>-- display GADT records with the new syntax,</span>
<a name="line-1345"></a> <span class='hs-comment'>-- Constr :: (Context) => { field :: a, field2 :: b } -> Ty (a, b)</span>
<a name="line-1346"></a> <span class='hs-comment'>-- (except each field gets its own line in docs, to match</span>
<a name="line-1347"></a> <span class='hs-comment'>-- non-GADT records)</span>
<a name="line-1348"></a> <span class='hs-conid'>RecCon</span> <span class='hs-varid'>fields</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occ</span> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span>
<a name="line-1349"></a> <span class='hs-varid'>ppForAll</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>ltvs</span> <span class='hs-varid'>lcontext</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>,</span>
<a name="line-1350"></a> <span class='hs-varid'>doRecordFields</span> <span class='hs-varid'>fields</span><span class='hs-layout'>,</span>
<a name="line-1351"></a> <span class='hs-varid'>arrow</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>]</span>
<a name="line-1352"></a> <span class='hs-conid'>InfixCon</span> <span class='hs-varid'>arg1</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>doGADTCon</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>arg1</span><span class='hs-layout'>,</span> <span class='hs-varid'>arg2</span><span class='hs-keyglyph'>]</span> <span class='hs-varid'>resTy</span>
<a name="line-1353"></a>
<a name="line-1354"></a> <span class='hs-keyword'>where</span>
<a name="line-1355"></a> <span class='hs-varid'>doRecordFields</span> <span class='hs-varid'>fields</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>braces</span> <span class='hs-layout'>(</span><span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span>
<a name="line-1356"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppShortField</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>fields</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1357"></a> <span class='hs-varid'>doGADTCon</span> <span class='hs-varid'>args</span> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>occ</span> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span>
<a name="line-1358"></a> <span class='hs-varid'>ppForAll</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>ltvs</span> <span class='hs-varid'>lcontext</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>,</span>
<a name="line-1359"></a> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>foldr</span> <span class='hs-varid'>mkFunTy</span> <span class='hs-varid'>resTy</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>]</span>
<a name="line-1360"></a>
<a name="line-1361"></a> <span class='hs-varid'>header_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppConstrHdr</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>tyVars</span> <span class='hs-varid'>context</span>
<a name="line-1362"></a> <span class='hs-varid'>occ</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docNameOcc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>con_name</span> <span class='hs-varop'>$</span> <span class='hs-varid'>con</span>
<a name="line-1363"></a> <span class='hs-varid'>ltvs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>con_qvars</span> <span class='hs-varid'>con</span>
<a name="line-1364"></a> <span class='hs-varid'>tyVars</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tyvarNames</span> <span class='hs-varid'>ltvs</span>
<a name="line-1365"></a> <span class='hs-varid'>lcontext</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>con_cxt</span> <span class='hs-varid'>con</span>
<a name="line-1366"></a> <span class='hs-varid'>context</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-layout'>(</span><span class='hs-varid'>con_cxt</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span>
<a name="line-1367"></a> <span class='hs-keyword'>forall</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>con_explicit</span> <span class='hs-varid'>con</span>
<a name="line-1368"></a> <span class='hs-varid'>mkFunTy</span> <span class='hs-varid'>a</span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>noLoc</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsFunTy</span> <span class='hs-varid'>a</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span>
<a name="line-1369"></a>
<a name="line-1370"></a><a name="ppConstrHdr"></a><span class='hs-comment'>-- ppConstrHdr is for (non-GADT) existentials constructors' syntax</span>
<a name="line-1371"></a><span class='hs-definition'>ppConstrHdr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HsExplicitForAll</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Name</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsContext</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1372"></a><span class='hs-definition'>ppConstrHdr</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>ctxt</span> <span class='hs-varid'>unicode</span>
<a name="line-1373"></a> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>tvs</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>noHtml</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>ppForall</span><span class='hs-layout'>)</span>
<a name="line-1374"></a> <span class='hs-varop'>+++</span>
<a name="line-1375"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>ctxt</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>noHtml</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>ppContextNoArrow</span> <span class='hs-varid'>ctxt</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>darrow</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>" "</span><span class='hs-layout'>)</span>
<a name="line-1376"></a> <span class='hs-keyword'>where</span>
<a name="line-1377"></a> <span class='hs-varid'>ppForall</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-keyword'>forall</span> <span class='hs-keyword'>of</span>
<a name="line-1378"></a> <span class='hs-conid'>Explicit</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>forallSymbol</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>ppName</span> <span class='hs-varid'>tvs</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>". "</span>
<a name="line-1379"></a> <span class='hs-conid'>Implicit</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>empty</span>
<a name="line-1380"></a>
<a name="line-1381"></a><a name="ppSideBySideConstr"></a><span class='hs-definition'>ppSideBySideConstr</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>DocName</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LConDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1382"></a><span class='hs-definition'>ppSideBySideConstr</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_res</span> <span class='hs-varid'>con</span> <span class='hs-keyword'>of</span>
<a name="line-1383"></a>
<a name="line-1384"></a> <span class='hs-conid'>ResTyH98</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_details</span> <span class='hs-varid'>con</span> <span class='hs-keyword'>of</span>
<a name="line-1385"></a>
<a name="line-1386"></a> <span class='hs-conid'>PrefixCon</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>-></span>
<a name="line-1387"></a> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>header_</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-varid'>occ</span><span class='hs-layout'>)</span> <span class='hs-conop'>:</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1388"></a> <span class='hs-varop'><-></span> <span class='hs-varid'>maybeRDocBox</span> <span class='hs-varid'>mbDoc</span>
<a name="line-1389"></a>
<a name="line-1390"></a> <span class='hs-conid'>RecCon</span> <span class='hs-varid'>fields</span> <span class='hs-keyglyph'>-></span>
<a name="line-1391"></a> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>header_</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-varid'>occ</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span>
<a name="line-1392"></a> <span class='hs-varid'>maybeRDocBox</span> <span class='hs-varid'>mbDoc</span>
<a name="line-1393"></a> <span class='hs-varop'></></span>
<a name="line-1394"></a> <span class='hs-varid'>doRecordFields</span> <span class='hs-varid'>fields</span>
<a name="line-1395"></a>
<a name="line-1396"></a> <span class='hs-conid'>InfixCon</span> <span class='hs-varid'>arg1</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span>
<a name="line-1397"></a> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>header_</span> <span class='hs-varid'>unicode</span><span class='hs-varop'>+++</span><span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-varid'>occ</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>arg2</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-1398"></a> <span class='hs-varop'><-></span> <span class='hs-varid'>maybeRDocBox</span> <span class='hs-varid'>mbDoc</span>
<a name="line-1399"></a>
<a name="line-1400"></a> <span class='hs-conid'>ResTyGADT</span> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>con_details</span> <span class='hs-varid'>con</span> <span class='hs-keyword'>of</span>
<a name="line-1401"></a> <span class='hs-comment'>-- prefix & infix could also use hsConDeclArgTys if it seemed to</span>
<a name="line-1402"></a> <span class='hs-comment'>-- simplify the code.</span>
<a name="line-1403"></a> <span class='hs-conid'>PrefixCon</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>doGADTCon</span> <span class='hs-varid'>args</span> <span class='hs-varid'>resTy</span>
<a name="line-1404"></a> <span class='hs-varid'>cd</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>RecCon</span> <span class='hs-varid'>fields</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>doGADTCon</span> <span class='hs-layout'>(</span><span class='hs-varid'>hsConDeclArgTys</span> <span class='hs-varid'>cd</span><span class='hs-layout'>)</span> <span class='hs-varid'>resTy</span>
<a name="line-1405"></a> <span class='hs-varop'></></span> <span class='hs-varid'>doRecordFields</span> <span class='hs-varid'>fields</span>
<a name="line-1406"></a> <span class='hs-conid'>InfixCon</span> <span class='hs-varid'>arg1</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>doGADTCon</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>arg1</span><span class='hs-layout'>,</span> <span class='hs-varid'>arg2</span><span class='hs-keyglyph'>]</span> <span class='hs-varid'>resTy</span>
<a name="line-1407"></a>
<a name="line-1408"></a> <span class='hs-keyword'>where</span>
<a name="line-1409"></a> <span class='hs-varid'>doRecordFields</span> <span class='hs-varid'>fields</span> <span class='hs-keyglyph'>=</span>
<a name="line-1410"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>spacedTable1</span> <span class='hs-varop'><<</span>
<a name="line-1411"></a> <span class='hs-varid'>aboves</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppSideBySideField</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>)</span> <span class='hs-varid'>fields</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1412"></a> <span class='hs-varid'>doGADTCon</span> <span class='hs-varid'>args</span> <span class='hs-varid'>resTy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-varid'>occ</span> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span>
<a name="line-1413"></a> <span class='hs-varid'>ppForAll</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>ltvs</span> <span class='hs-layout'>(</span><span class='hs-varid'>con_cxt</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>,</span>
<a name="line-1414"></a> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>foldr</span> <span class='hs-varid'>mkFunTy</span> <span class='hs-varid'>resTy</span> <span class='hs-varid'>args</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>]</span>
<a name="line-1415"></a> <span class='hs-layout'>)</span> <span class='hs-varop'><-></span> <span class='hs-varid'>maybeRDocBox</span> <span class='hs-varid'>mbDoc</span>
<a name="line-1416"></a>
<a name="line-1417"></a>
<a name="line-1418"></a> <span class='hs-varid'>header_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppConstrHdr</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>tyVars</span> <span class='hs-varid'>context</span>
<a name="line-1419"></a> <span class='hs-varid'>occ</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docNameOcc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>con_name</span> <span class='hs-varop'>$</span> <span class='hs-varid'>con</span>
<a name="line-1420"></a> <span class='hs-varid'>ltvs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>con_qvars</span> <span class='hs-varid'>con</span>
<a name="line-1421"></a> <span class='hs-varid'>tyVars</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tyvarNames</span> <span class='hs-layout'>(</span><span class='hs-varid'>con_qvars</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span>
<a name="line-1422"></a> <span class='hs-varid'>context</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unLoc</span> <span class='hs-layout'>(</span><span class='hs-varid'>con_cxt</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span>
<a name="line-1423"></a> <span class='hs-keyword'>forall</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>con_explicit</span> <span class='hs-varid'>con</span>
<a name="line-1424"></a> <span class='hs-comment'>-- don't use "con_doc con", in case it's reconstructed from a .hi file,</span>
<a name="line-1425"></a> <span class='hs-comment'>-- or also because we want Haddock to do the doc-parsing, not GHC.</span>
<a name="line-1426"></a> <span class='hs-comment'>-- 'join' is in Maybe.</span>
<a name="line-1427"></a> <span class='hs-varid'>mbDoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>join</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fmap</span> <span class='hs-varid'>fst</span> <span class='hs-varop'>$</span> <span class='hs-varid'>lookup</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>con_name</span> <span class='hs-varid'>con</span><span class='hs-layout'>)</span> <span class='hs-varid'>subdocs</span>
<a name="line-1428"></a> <span class='hs-varid'>mkFunTy</span> <span class='hs-varid'>a</span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>noLoc</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsFunTy</span> <span class='hs-varid'>a</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span>
<a name="line-1429"></a>
<a name="line-1430"></a><a name="ppSideBySideField"></a><span class='hs-definition'>ppSideBySideField</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>DocName</span><span class='hs-layout'>,</span> <span class='hs-conid'>DocForDecl</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ConDeclField</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1431"></a><span class='hs-definition'>ppSideBySideField</span> <span class='hs-varid'>subdocs</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>ConDeclField</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-varid'>ltype</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-1432"></a> <span class='hs-varid'>argBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-layout'>(</span><span class='hs-varid'>docNameOcc</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span>
<a name="line-1433"></a> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ltype</span><span class='hs-layout'>)</span> <span class='hs-varop'><-></span> <span class='hs-varid'>maybeRDocBox</span> <span class='hs-varid'>mbDoc</span>
<a name="line-1434"></a> <span class='hs-keyword'>where</span>
<a name="line-1435"></a> <span class='hs-comment'>-- don't use cd_fld_doc for same reason we don't use con_doc above</span>
<a name="line-1436"></a> <span class='hs-varid'>mbDoc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>join</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fmap</span> <span class='hs-varid'>fst</span> <span class='hs-varop'>$</span> <span class='hs-varid'>lookup</span> <span class='hs-varid'>name</span> <span class='hs-varid'>subdocs</span>
<a name="line-1437"></a>
<a name="line-1438"></a><span class='hs-comment'>{-
<a name="line-1439"></a>ppHsFullConstr :: HsConDecl -> Html
<a name="line-1440"></a>ppHsFullConstr (HsConDecl _ nm tvs ctxt typeList doc) =
<a name="line-1441"></a> declWithDoc False doc (
<a name="line-1442"></a> hsep ((ppHsConstrHdr tvs ctxt +++
<a name="line-1443"></a> ppHsBinder False nm) : map ppHsBangType typeList)
<a name="line-1444"></a> )
<a name="line-1445"></a>ppHsFullConstr (HsRecDecl _ nm tvs ctxt fields doc) =
<a name="line-1446"></a> td << vanillaTable << (
<a name="line-1447"></a> case doc of
<a name="line-1448"></a> Nothing -> aboves [hdr, fields_html]
<a name="line-1449"></a> Just _ -> aboves [hdr, constr_doc, fields_html]
<a name="line-1450"></a> )
<a name="line-1451"></a>
<a name="line-1452"></a> where hdr = declBox (ppHsConstrHdr tvs ctxt +++ ppHsBinder False nm)
<a name="line-1453"></a>
<a name="line-1454"></a> constr_doc
<a name="line-1455"></a> | isJust doc = docBox (docToHtml (fromJust doc))
<a name="line-1456"></a> | otherwise = Html.emptyTable
<a name="line-1457"></a>
<a name="line-1458"></a> fields_html =
<a name="line-1459"></a> td <<
<a name="line-1460"></a> table ! [width "100%", cellpadding 0, cellspacing 8] << (
<a name="line-1461"></a> aboves (map ppFullField (concat (map expandField fields)))
<a name="line-1462"></a> )
<a name="line-1463"></a>-}</span>
<a name="line-1464"></a>
<a name="line-1465"></a><a name="ppShortField"></a><span class='hs-definition'>ppShortField</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ConDeclField</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1466"></a><span class='hs-definition'>ppShortField</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-conid'>ConDeclField</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-varid'>ltype</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span>
<a name="line-1467"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"recfield"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span>
<a name="line-1468"></a> <span class='hs-varid'>ppBinder</span> <span class='hs-varid'>summary</span> <span class='hs-layout'>(</span><span class='hs-varid'>docNameOcc</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span>
<a name="line-1469"></a> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ltype</span>
<a name="line-1470"></a> <span class='hs-layout'>)</span>
<a name="line-1471"></a>
<a name="line-1472"></a><span class='hs-comment'>{-
<a name="line-1473"></a>ppFullField :: HsFieldDecl -> Html
<a name="line-1474"></a>ppFullField (HsFieldDecl [n] ty doc)
<a name="line-1475"></a> = declWithDoc False doc (
<a name="line-1476"></a> ppHsBinder False n <+> dcolon <+> ppHsBangType ty
<a name="line-1477"></a> )
<a name="line-1478"></a>ppFullField _ = error "ppFullField"
<a name="line-1479"></a>
<a name="line-1480"></a>expandField :: HsFieldDecl -> [HsFieldDecl]
<a name="line-1481"></a>expandField (HsFieldDecl ns ty doc) = [ HsFieldDecl [n] ty doc | n <- ns ]
<a name="line-1482"></a>-}</span>
<a name="line-1483"></a>
<a name="line-1484"></a><a name="ppDataHeader"></a><span class='hs-comment'>-- | Print the LHS of a data\/newtype declaration.</span>
<a name="line-1485"></a><span class='hs-comment'>-- Currently doesn't handle 'data instance' decls or kind signatures</span>
<a name="line-1486"></a><span class='hs-definition'>ppDataHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TyClDecl</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1487"></a><span class='hs-definition'>ppDataHeader</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>decl</span> <span class='hs-varid'>unicode</span>
<a name="line-1488"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isDataDecl</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"ppDataHeader: illegal argument"</span>
<a name="line-1489"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span>
<a name="line-1490"></a> <span class='hs-comment'>-- newtype or data</span>
<a name="line-1491"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>tcdND</span> <span class='hs-varid'>decl</span> <span class='hs-varop'>==</span> <span class='hs-conid'>NewType</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"newtype"</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"data"</span><span class='hs-layout'>)</span> <span class='hs-varop'><+></span>
<a name="line-1492"></a> <span class='hs-comment'>-- context</span>
<a name="line-1493"></a> <span class='hs-varid'>ppLContext</span> <span class='hs-layout'>(</span><span class='hs-varid'>tcdCtxt</span> <span class='hs-varid'>decl</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span>
<a name="line-1494"></a> <span class='hs-comment'>-- T a b c ..., or a :+: b</span>
<a name="line-1495"></a> <span class='hs-varid'>ppTyClBinderWithVars</span> <span class='hs-varid'>summary</span> <span class='hs-varid'>decl</span>
<a name="line-1496"></a>
<a name="line-1497"></a>
<a name="line-1498"></a><span class='hs-comment'>-- ----------------------------------------------------------------------------</span>
<a name="line-1499"></a><span class='hs-comment'>-- Types and contexts</span>
<a name="line-1500"></a>
<a name="line-1501"></a>
<a name="line-1502"></a><a name="ppKind"></a><span class='hs-definition'>ppKind</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Outputable</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1503"></a><span class='hs-definition'>ppKind</span> <span class='hs-varid'>k</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-varop'>$</span> <span class='hs-varid'>showSDoc</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppr</span> <span class='hs-varid'>k</span><span class='hs-layout'>)</span>
<a name="line-1504"></a>
<a name="line-1505"></a>
<a name="line-1506"></a><span class='hs-comment'>{-
<a name="line-1507"></a>ppForAll Implicit _ lctxt = ppCtxtPart lctxt
<a name="line-1508"></a>ppForAll Explicit ltvs lctxt =
<a name="line-1509"></a> hsep (keyword "forall" : ppTyVars ltvs ++ [dot]) <+> ppCtxtPart lctxt
<a name="line-1510"></a>-}</span>
<a name="line-1511"></a>
<a name="line-1512"></a>
<a name="line-1513"></a><a name="ppBang"></a><span class='hs-definition'>ppBang</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HsBang</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1514"></a><span class='hs-definition'>ppBang</span> <span class='hs-conid'>HsNoBang</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>empty</span>
<a name="line-1515"></a><span class='hs-definition'>ppBang</span> <span class='hs-conid'>HsStrict</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"!"</span>
<a name="line-1516"></a><span class='hs-definition'>ppBang</span> <span class='hs-conid'>HsUnbox</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"!"</span> <span class='hs-comment'>-- unboxed args is an implementation detail,</span>
<a name="line-1517"></a> <span class='hs-comment'>-- so we just show the strictness annotation</span>
<a name="line-1518"></a>
<a name="line-1519"></a>
<a name="line-1520"></a><a name="tupleParens"></a><span class='hs-definition'>tupleParens</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Boxity</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1521"></a><span class='hs-definition'>tupleParens</span> <span class='hs-conid'>Boxed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parenList</span>
<a name="line-1522"></a><span class='hs-definition'>tupleParens</span> <span class='hs-conid'>Unboxed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ubxParenList</span>
<a name="line-1523"></a><span class='hs-comment'>{-
<a name="line-1524"></a>ppType :: HsType DocName -> Html
<a name="line-1525"></a>ppType t = case t of
<a name="line-1526"></a> t@(HsForAllTy expl ltvs lcontext ltype) -> ppForAllTy t <+> ppLType ltype
<a name="line-1527"></a> HsTyVar n -> ppDocName n
<a name="line-1528"></a> HsBangTy HsStrict lt -> toHtml "!" <+> ppLType lt
<a name="line-1529"></a> HsBangTy HsUnbox lt -> toHtml "!!" <+> ppLType lt
<a name="line-1530"></a> HsAppTy a b -> ppLType a <+> ppLType b
<a name="line-1531"></a> HsFunTy a b -> hsep [ppLType a, toHtml "->", ppLType b]
<a name="line-1532"></a> HsListTy t -> brackets $ ppLType t
<a name="line-1533"></a> HsPArrTy t -> toHtml "[:" +++ ppLType t +++ toHtml ":]"
<a name="line-1534"></a> HsTupleTy Boxed ts -> parenList $ map ppLType ts
<a name="line-1535"></a> HsTupleTy Unboxed ts -> ubxParenList $ map ppLType ts
<a name="line-1536"></a> HsOpTy a n b -> ppLType a <+> ppLDocName n <+> ppLType b
<a name="line-1537"></a> HsParTy t -> parens $ ppLType t
<a name="line-1538"></a> HsNumTy n -> toHtml (show n)
<a name="line-1539"></a> HsPredTy p -> ppPred p
<a name="line-1540"></a> HsKindSig t k -> hsep [ppLType t, dcolon, ppKind k]
<a name="line-1541"></a> HsSpliceTy _ -> error "ppType"
<a name="line-1542"></a> HsDocTy t _ -> ppLType t
<a name="line-1543"></a>-}</span>
<a name="line-1544"></a>
<a name="line-1545"></a>
<a name="line-1546"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1547"></a><span class='hs-comment'>-- Rendering of HsType </span>
<a name="line-1548"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span>
<a name="line-1549"></a>
<a name="line-1550"></a>
<a name="line-1551"></a><a name="pREC_TOP"></a><span class='hs-definition'>pREC_TOP</span><span class='hs-layout'>,</span> <span class='hs-varid'>pREC_FUN</span><span class='hs-layout'>,</span> <span class='hs-varid'>pREC_OP</span><span class='hs-layout'>,</span> <span class='hs-varid'>pREC_CON</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-1552"></a>
<a name="line-1553"></a><span class='hs-definition'>pREC_TOP</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- type in ParseIface.y in GHC</span>
<a name="line-1554"></a><a name="pREC_FUN"></a><span class='hs-definition'>pREC_FUN</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>1</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- btype in ParseIface.y in GHC</span>
<a name="line-1555"></a> <span class='hs-comment'>-- Used for LH arg of (->)</span>
<a name="line-1556"></a><a name="pREC_OP"></a><span class='hs-definition'>pREC_OP</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- Used for arg of any infix operator</span>
<a name="line-1557"></a> <span class='hs-comment'>-- (we don't keep their fixities around)</span>
<a name="line-1558"></a><a name="pREC_CON"></a><span class='hs-definition'>pREC_CON</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>3</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- Used for arg of type applicn:</span>
<a name="line-1559"></a> <span class='hs-comment'>-- always parenthesise unless atomic</span>
<a name="line-1560"></a>
<a name="line-1561"></a><a name="maybeParen"></a><span class='hs-definition'>maybeParen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- Precedence of context</span>
<a name="line-1562"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- Precedence of top-level operator</span>
<a name="line-1563"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-comment'>-- Wrap in parens if (ctxt >= op)</span>
<a name="line-1564"></a><span class='hs-definition'>maybeParen</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>op_prec</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>op_prec</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-varid'>p</span>
<a name="line-1565"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>p</span>
<a name="line-1566"></a>
<a name="line-1567"></a>
<a name="line-1568"></a><a name="ppLType"></a><span class='hs-definition'>ppLType</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppLParendType</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppLFunLhType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1569"></a><span class='hs-definition'>ppLType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppType</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-1570"></a><a name="ppLParendType"></a><span class='hs-definition'>ppLParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-1571"></a><a name="ppLFunLhType"></a><span class='hs-definition'>ppLFunLhType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppFunLhType</span> <span class='hs-varid'>unicode</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-1572"></a>
<a name="line-1573"></a>
<a name="line-1574"></a><a name="ppType"></a><span class='hs-definition'>ppType</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppParendType</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppFunLhType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1575"></a><span class='hs-definition'>ppType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_ty</span> <span class='hs-varid'>pREC_TOP</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span>
<a name="line-1576"></a><a name="ppParendType"></a><span class='hs-definition'>ppParendType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_ty</span> <span class='hs-varid'>pREC_CON</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span>
<a name="line-1577"></a><a name="ppFunLhType"></a><span class='hs-definition'>ppFunLhType</span> <span class='hs-varid'>unicode</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_ty</span> <span class='hs-varid'>pREC_FUN</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span>
<a name="line-1578"></a>
<a name="line-1579"></a>
<a name="line-1580"></a><span class='hs-comment'>-- Drop top-level for-all type variables in user style</span>
<a name="line-1581"></a><span class='hs-comment'>-- since they are implicit in Haskell</span>
<a name="line-1582"></a>
<a name="line-1583"></a><a name="ppForAll"></a><span class='hs-definition'>ppForAll</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HsExplicitForAll</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsTyVarBndr</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-1584"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Located</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsContext</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1585"></a><span class='hs-definition'>ppForAll</span> <span class='hs-varid'>expl</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span>
<a name="line-1586"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>show_forall</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>forall_part</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppLContext</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span>
<a name="line-1587"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppLContext</span> <span class='hs-varid'>cxt</span> <span class='hs-varid'>unicode</span>
<a name="line-1588"></a> <span class='hs-keyword'>where</span>
<a name="line-1589"></a> <span class='hs-varid'>show_forall</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>tvs</span><span class='hs-layout'>)</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>is_explicit</span>
<a name="line-1590"></a> <span class='hs-varid'>is_explicit</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>expl</span> <span class='hs-keyword'>of</span> <span class='hs-layout'>{</span><span class='hs-conid'>Explicit</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>True</span><span class='hs-layout'>;</span> <span class='hs-conid'>Implicit</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>False</span><span class='hs-layout'>}</span>
<a name="line-1591"></a> <span class='hs-varid'>forall_part</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hsep</span> <span class='hs-layout'>(</span><span class='hs-varid'>forallSymbol</span> <span class='hs-varid'>unicode</span> <span class='hs-conop'>:</span> <span class='hs-varid'>ppTyVars</span> <span class='hs-varid'>tvs</span><span class='hs-layout'>)</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>dot</span>
<a name="line-1592"></a>
<a name="line-1593"></a>
<a name="line-1594"></a><a name="ppr_mono_lty"></a><span class='hs-definition'>ppr_mono_lty</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LHsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1595"></a><span class='hs-definition'>ppr_mono_lty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLoc</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1596"></a>
<a name="line-1597"></a>
<a name="line-1598"></a><a name="ppr_mono_ty"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1599"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsForAllTy</span> <span class='hs-varid'>expl</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>ctxt</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1600"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybeParen</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>pREC_FUN</span> <span class='hs-varop'>$</span>
<a name="line-1601"></a> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>ppForAll</span> <span class='hs-varid'>expl</span> <span class='hs-varid'>tvs</span> <span class='hs-varid'>ctxt</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_TOP</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span><span class='hs-keyglyph'>]</span>
<a name="line-1602"></a>
<a name="line-1603"></a><span class='hs-comment'>-- gaw 2004</span>
<a name="line-1604"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsBangTy</span> <span class='hs-varid'>b</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppBang</span> <span class='hs-varid'>b</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>ppLParendType</span> <span class='hs-varid'>u</span> <span class='hs-varid'>ty</span>
<a name="line-1605"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsTyVar</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppDocName</span> <span class='hs-varid'>name</span>
<a name="line-1606"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsFunTy</span> <span class='hs-varid'>ty1</span> <span class='hs-varid'>ty2</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_fun_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>ty1</span> <span class='hs-varid'>ty2</span> <span class='hs-varid'>u</span>
<a name="line-1607"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsTupleTy</span> <span class='hs-varid'>con</span> <span class='hs-varid'>tys</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tupleParens</span> <span class='hs-varid'>con</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppLType</span> <span class='hs-varid'>u</span><span class='hs-layout'>)</span> <span class='hs-varid'>tys</span><span class='hs-layout'>)</span>
<a name="line-1608"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsKindSig</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>kind</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_TOP</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>u</span> <span class='hs-varop'><+></span> <span class='hs-varid'>dcolon</span> <span class='hs-varid'>u</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppKind</span> <span class='hs-varid'>kind</span><span class='hs-layout'>)</span>
<a name="line-1609"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsListTy</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>brackets</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_TOP</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>u</span><span class='hs-layout'>)</span>
<a name="line-1610"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsPArrTy</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pabrackets</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_TOP</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>u</span><span class='hs-layout'>)</span>
<a name="line-1611"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsPredTy</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span> <span class='hs-varid'>u</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppPred</span> <span class='hs-varid'>u</span> <span class='hs-varid'>p</span><span class='hs-layout'>)</span>
<a name="line-1612"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsNumTy</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>show</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- generics only</span>
<a name="line-1613"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsSpliceTy</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"ppr_mono_ty HsSpliceTy"</span>
<a name="line-1614"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsSpliceTyOut</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"ppr_mono_ty HsSpliceTyOut"</span>
<a name="line-1615"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsRecTy</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"ppr_mono_ty HsRecTy"</span>
<a name="line-1616"></a>
<a name="line-1617"></a>
<a name="line-1618"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsAppTy</span> <span class='hs-varid'>fun_ty</span> <span class='hs-varid'>arg_ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1619"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybeParen</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>pREC_CON</span> <span class='hs-varop'>$</span>
<a name="line-1620"></a> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_FUN</span> <span class='hs-varid'>fun_ty</span> <span class='hs-varid'>unicode</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_CON</span> <span class='hs-varid'>arg_ty</span> <span class='hs-varid'>unicode</span><span class='hs-keyglyph'>]</span>
<a name="line-1621"></a>
<a name="line-1622"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsOpTy</span> <span class='hs-varid'>ty1</span> <span class='hs-varid'>op</span> <span class='hs-varid'>ty2</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1623"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybeParen</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>pREC_FUN</span> <span class='hs-varop'>$</span>
<a name="line-1624"></a> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_OP</span> <span class='hs-varid'>ty1</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppr_op</span> <span class='hs-varop'><+></span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_OP</span> <span class='hs-varid'>ty2</span> <span class='hs-varid'>unicode</span>
<a name="line-1625"></a> <span class='hs-keyword'>where</span>
<a name="line-1626"></a> <span class='hs-varid'>ppr_op</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isSymOcc</span> <span class='hs-varid'>occName</span><span class='hs-layout'>)</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>quote</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppLDocName</span> <span class='hs-varid'>op</span><span class='hs-layout'>)</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>ppLDocName</span> <span class='hs-varid'>op</span>
<a name="line-1627"></a> <span class='hs-varid'>occName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>docNameOcc</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unLoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>op</span>
<a name="line-1628"></a>
<a name="line-1629"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsParTy</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1630"></a><span class='hs-comment'>-- = parens (ppr_mono_lty pREC_TOP ty)</span>
<a name="line-1631"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span>
<a name="line-1632"></a>
<a name="line-1633"></a><span class='hs-definition'>ppr_mono_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-layout'>(</span><span class='hs-conid'>HsDocTy</span> <span class='hs-varid'>ty</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-varid'>unicode</span>
<a name="line-1634"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>ty</span> <span class='hs-varid'>unicode</span>
<a name="line-1635"></a>
<a name="line-1636"></a>
<a name="line-1637"></a><a name="ppr_fun_ty"></a><span class='hs-definition'>ppr_fun_ty</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LHsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LHsType</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1638"></a><span class='hs-definition'>ppr_fun_ty</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>ty1</span> <span class='hs-varid'>ty2</span> <span class='hs-varid'>unicode</span>
<a name="line-1639"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>p1</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_FUN</span> <span class='hs-varid'>ty1</span> <span class='hs-varid'>unicode</span>
<a name="line-1640"></a> <span class='hs-varid'>p2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppr_mono_lty</span> <span class='hs-varid'>pREC_TOP</span> <span class='hs-varid'>ty2</span> <span class='hs-varid'>unicode</span>
<a name="line-1641"></a> <span class='hs-keyword'>in</span>
<a name="line-1642"></a> <span class='hs-varid'>maybeParen</span> <span class='hs-varid'>ctxt_prec</span> <span class='hs-varid'>pREC_FUN</span> <span class='hs-varop'>$</span>
<a name="line-1643"></a> <span class='hs-varid'>hsep</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>p1</span><span class='hs-layout'>,</span> <span class='hs-varid'>arrow</span> <span class='hs-varid'>unicode</span> <span class='hs-varop'><+></span> <span class='hs-varid'>p2</span><span class='hs-keyglyph'>]</span>
<a name="line-1644"></a>
<a name="line-1645"></a>
<a name="line-1646"></a><span class='hs-comment'>-- ----------------------------------------------------------------------------</span>
<a name="line-1647"></a><span class='hs-comment'>-- Names</span>
<a name="line-1648"></a>
<a name="line-1649"></a><a name="ppOccName"></a><span class='hs-definition'>ppOccName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1650"></a><span class='hs-definition'>ppOccName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-varop'>.</span> <span class='hs-varid'>occNameString</span>
<a name="line-1651"></a>
<a name="line-1652"></a><a name="ppRdrName"></a><span class='hs-definition'>ppRdrName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>RdrName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1653"></a><span class='hs-definition'>ppRdrName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppOccName</span> <span class='hs-varop'>.</span> <span class='hs-varid'>rdrNameOcc</span>
<a name="line-1654"></a>
<a name="line-1655"></a><a name="ppLDocName"></a><span class='hs-definition'>ppLDocName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Located</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1656"></a><span class='hs-definition'>ppLDocName</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>d</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppDocName</span> <span class='hs-varid'>d</span>
<a name="line-1657"></a>
<a name="line-1658"></a><a name="ppDocName"></a><span class='hs-definition'>ppDocName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1659"></a><span class='hs-definition'>ppDocName</span> <span class='hs-layout'>(</span><span class='hs-conid'>Documented</span> <span class='hs-varid'>name</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-1660"></a> <span class='hs-varid'>linkIdOcc</span> <span class='hs-varid'>mdl</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>occName</span><span class='hs-layout'>)</span> <span class='hs-varop'><<</span> <span class='hs-varid'>ppOccName</span> <span class='hs-varid'>occName</span>
<a name="line-1661"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>occName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nameOccName</span> <span class='hs-varid'>name</span>
<a name="line-1662"></a><span class='hs-definition'>ppDocName</span> <span class='hs-layout'>(</span><span class='hs-conid'>Undocumented</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>getOccString</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span>
<a name="line-1663"></a>
<a name="line-1664"></a><a name="linkTarget"></a><span class='hs-definition'>linkTarget</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1665"></a><span class='hs-definition'>linkTarget</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>namedAnchor</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchorNameStr</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>""</span>
<a name="line-1666"></a>
<a name="line-1667"></a><a name="ppName"></a><span class='hs-definition'>ppName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Name</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1668"></a><span class='hs-definition'>ppName</span> <span class='hs-varid'>name</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>getOccString</span> <span class='hs-varid'>name</span><span class='hs-layout'>)</span>
<a name="line-1669"></a>
<a name="line-1670"></a>
<a name="line-1671"></a><a name="ppBinder"></a><span class='hs-definition'>ppBinder</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1672"></a><span class='hs-comment'>-- The Bool indicates whether we are generating the summary, in which case</span>
<a name="line-1673"></a><span class='hs-comment'>-- the binder will be a link to the full definition.</span>
<a name="line-1674"></a><span class='hs-definition'>ppBinder</span> <span class='hs-conid'>True</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>linkedAnchor</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchorNameStr</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-varop'><<</span> <span class='hs-varid'>ppBinder'</span> <span class='hs-varid'>n</span>
<a name="line-1675"></a><span class='hs-definition'>ppBinder</span> <span class='hs-conid'>False</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>linkTarget</span> <span class='hs-varid'>n</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>bold</span> <span class='hs-varop'><<</span> <span class='hs-varid'>ppBinder'</span> <span class='hs-varid'>n</span>
<a name="line-1676"></a>
<a name="line-1677"></a>
<a name="line-1678"></a><a name="ppBinder'"></a><span class='hs-definition'>ppBinder'</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1679"></a><span class='hs-definition'>ppBinder'</span> <span class='hs-varid'>n</span>
<a name="line-1680"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isVarSym</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-varop'>$</span> <span class='hs-varid'>ppOccName</span> <span class='hs-varid'>n</span>
<a name="line-1681"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppOccName</span> <span class='hs-varid'>n</span>
<a name="line-1682"></a>
<a name="line-1683"></a>
<a name="line-1684"></a><a name="linkId"></a><span class='hs-definition'>linkId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Name</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1685"></a><span class='hs-definition'>linkId</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>mbName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>linkIdOcc</span> <span class='hs-varid'>mdl</span> <span class='hs-layout'>(</span><span class='hs-varid'>fmap</span> <span class='hs-varid'>nameOccName</span> <span class='hs-varid'>mbName</span><span class='hs-layout'>)</span>
<a name="line-1686"></a>
<a name="line-1687"></a>
<a name="line-1688"></a><a name="linkIdOcc"></a><span class='hs-definition'>linkIdOcc</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>OccName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1689"></a><span class='hs-definition'>linkIdOcc</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>mbName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>uri</span><span class='hs-keyglyph'>]</span>
<a name="line-1690"></a> <span class='hs-keyword'>where</span>
<a name="line-1691"></a> <span class='hs-varid'>uri</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mbName</span> <span class='hs-keyword'>of</span>
<a name="line-1692"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span>
<a name="line-1693"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>name</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>nameHtmlRef</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>name</span>
<a name="line-1694"></a>
<a name="line-1695"></a><a name="ppModule"></a><span class='hs-definition'>ppModule</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Module</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1696"></a><span class='hs-definition'>ppModule</span> <span class='hs-varid'>mdl</span> <span class='hs-varid'>ref</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>moduleHtmlFile</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-varid'>ref</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-1697"></a> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-varid'>moduleString</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span>
<a name="line-1698"></a>
<a name="line-1699"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span>
<a name="line-1700"></a><span class='hs-comment'>-- * Doc Markup</span>
<a name="line-1701"></a>
<a name="line-1702"></a><a name="parHtmlMarkup"></a><span class='hs-definition'>parHtmlMarkup</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocMarkup</span> <span class='hs-varid'>a</span> <span class='hs-conid'>Html</span>
<a name="line-1703"></a><span class='hs-definition'>parHtmlMarkup</span> <span class='hs-varid'>ppId</span> <span class='hs-varid'>isTyCon</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Markup</span> <span class='hs-layout'>{</span>
<a name="line-1704"></a> <span class='hs-varid'>markupParagraph</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>paragraph</span><span class='hs-layout'>,</span>
<a name="line-1705"></a> <span class='hs-varid'>markupEmpty</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>""</span><span class='hs-layout'>,</span>
<a name="line-1706"></a> <span class='hs-varid'>markupString</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span><span class='hs-layout'>,</span>
<a name="line-1707"></a> <span class='hs-varid'>markupAppend</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varop'>+++</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-1708"></a> <span class='hs-varid'>markupIdentifier</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tt</span> <span class='hs-varop'>.</span> <span class='hs-varid'>ppId</span> <span class='hs-varop'>.</span> <span class='hs-varid'>choose</span><span class='hs-layout'>,</span>
<a name="line-1709"></a> <span class='hs-varid'>markupModule</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>m</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>let</span> <span class='hs-layout'>(</span><span class='hs-varid'>mdl</span><span class='hs-layout'>,</span><span class='hs-varid'>ref</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>break</span> <span class='hs-layout'>(</span><span class='hs-varop'>==</span><span class='hs-chr'>'#'</span><span class='hs-layout'>)</span> <span class='hs-varid'>m</span> <span class='hs-keyword'>in</span> <span class='hs-varid'>ppModule</span> <span class='hs-layout'>(</span><span class='hs-varid'>mkModuleNoPackage</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span> <span class='hs-varid'>ref</span><span class='hs-layout'>,</span>
<a name="line-1710"></a> <span class='hs-varid'>markupEmphasis</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>emphasize</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toHtml</span><span class='hs-layout'>,</span>
<a name="line-1711"></a> <span class='hs-varid'>markupMonospaced</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tt</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toHtml</span><span class='hs-layout'>,</span>
<a name="line-1712"></a> <span class='hs-varid'>markupUnorderedList</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ulist</span> <span class='hs-varop'>.</span> <span class='hs-varid'>concatHtml</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>li</span> <span class='hs-varop'><<</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-1713"></a> <span class='hs-varid'>markupPic</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>path</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>image</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>src</span> <span class='hs-varid'>path</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span>
<a name="line-1714"></a> <span class='hs-varid'>markupOrderedList</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>olist</span> <span class='hs-varop'>.</span> <span class='hs-varid'>concatHtml</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>li</span> <span class='hs-varop'><<</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-1715"></a> <span class='hs-varid'>markupDefList</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dlist</span> <span class='hs-varop'>.</span> <span class='hs-varid'>concatHtml</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-varid'>markupDef</span><span class='hs-layout'>,</span>
<a name="line-1716"></a> <span class='hs-varid'>markupCodeBlock</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pre</span><span class='hs-layout'>,</span>
<a name="line-1717"></a> <span class='hs-varid'>markupURL</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>url</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>url</span><span class='hs-layout'>,</span>
<a name="line-1718"></a> <span class='hs-varid'>markupAName</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>aname</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>namedAnchor</span> <span class='hs-varid'>aname</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>""</span>
<a name="line-1719"></a> <span class='hs-layout'>}</span>
<a name="line-1720"></a> <span class='hs-keyword'>where</span>
<a name="line-1721"></a> <span class='hs-comment'>-- If an id can refer to multiple things, we give precedence to type</span>
<a name="line-1722"></a> <span class='hs-comment'>-- constructors. This should ideally be done during renaming from RdrName</span>
<a name="line-1723"></a> <span class='hs-comment'>-- to Name, but since we will move this process from GHC into Haddock in</span>
<a name="line-1724"></a> <span class='hs-comment'>-- the future, we fix it here in the meantime.</span>
<a name="line-1725"></a> <span class='hs-comment'>-- TODO: mention this rule in the documentation.</span>
<a name="line-1726"></a> <span class='hs-varid'>choose</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"empty identifier list in HsDoc"</span>
<a name="line-1727"></a> <span class='hs-varid'>choose</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>x</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span>
<a name="line-1728"></a> <span class='hs-varid'>choose</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-conop'>:</span><span class='hs-varid'>y</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span>
<a name="line-1729"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isTyCon</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span>
<a name="line-1730"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>y</span>
<a name="line-1731"></a>
<a name="line-1732"></a>
<a name="line-1733"></a><a name="markupDef"></a><span class='hs-definition'>markupDef</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>HTML</span> <span class='hs-varid'>a</span><span class='hs-layout'>,</span> <span class='hs-conid'>HTML</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-layout'>,</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1734"></a><span class='hs-definition'>markupDef</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-layout'>,</span><span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dterm</span> <span class='hs-varop'><<</span> <span class='hs-varid'>a</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>ddef</span> <span class='hs-varop'><<</span> <span class='hs-varid'>b</span>
<a name="line-1735"></a>
<a name="line-1736"></a>
<a name="line-1737"></a><a name="htmlMarkup"></a><span class='hs-definition'>htmlMarkup</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocMarkup</span> <span class='hs-conid'>DocName</span> <span class='hs-conid'>Html</span>
<a name="line-1738"></a><span class='hs-definition'>htmlMarkup</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parHtmlMarkup</span> <span class='hs-varid'>ppDocName</span> <span class='hs-layout'>(</span><span class='hs-varid'>isTyConName</span> <span class='hs-varop'>.</span> <span class='hs-varid'>getName</span><span class='hs-layout'>)</span>
<a name="line-1739"></a>
<a name="line-1740"></a><a name="htmlOrigMarkup"></a><span class='hs-definition'>htmlOrigMarkup</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocMarkup</span> <span class='hs-conid'>Name</span> <span class='hs-conid'>Html</span>
<a name="line-1741"></a><span class='hs-definition'>htmlOrigMarkup</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parHtmlMarkup</span> <span class='hs-varid'>ppName</span> <span class='hs-varid'>isTyConName</span>
<a name="line-1742"></a>
<a name="line-1743"></a><a name="htmlRdrMarkup"></a><span class='hs-definition'>htmlRdrMarkup</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocMarkup</span> <span class='hs-conid'>RdrName</span> <span class='hs-conid'>Html</span>
<a name="line-1744"></a><span class='hs-definition'>htmlRdrMarkup</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parHtmlMarkup</span> <span class='hs-varid'>ppRdrName</span> <span class='hs-varid'>isRdrTc</span>
<a name="line-1745"></a>
<a name="line-1746"></a><a name="docToHtml"></a><span class='hs-comment'>-- If the doc is a single paragraph, don't surround it with <P> (this causes</span>
<a name="line-1747"></a><span class='hs-comment'>-- ugly extra whitespace with some browsers).</span>
<a name="line-1748"></a><span class='hs-definition'>docToHtml</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1749"></a><span class='hs-definition'>docToHtml</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>markup</span> <span class='hs-varid'>htmlMarkup</span> <span class='hs-layout'>(</span><span class='hs-varid'>unParagraph</span> <span class='hs-layout'>(</span><span class='hs-varid'>markup</span> <span class='hs-varid'>htmlCleanup</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1750"></a>
<a name="line-1751"></a><a name="origDocToHtml"></a><span class='hs-definition'>origDocToHtml</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Doc</span> <span class='hs-conid'>Name</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1752"></a><span class='hs-definition'>origDocToHtml</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>markup</span> <span class='hs-varid'>htmlOrigMarkup</span> <span class='hs-layout'>(</span><span class='hs-varid'>unParagraph</span> <span class='hs-layout'>(</span><span class='hs-varid'>markup</span> <span class='hs-varid'>htmlCleanup</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1753"></a>
<a name="line-1754"></a><a name="rdrDocToHtml"></a><span class='hs-definition'>rdrDocToHtml</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Doc</span> <span class='hs-conid'>RdrName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1755"></a><span class='hs-definition'>rdrDocToHtml</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>markup</span> <span class='hs-varid'>htmlRdrMarkup</span> <span class='hs-layout'>(</span><span class='hs-varid'>unParagraph</span> <span class='hs-layout'>(</span><span class='hs-varid'>markup</span> <span class='hs-varid'>htmlCleanup</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1756"></a>
<a name="line-1757"></a><a name="unParagraph"></a><span class='hs-comment'>-- If there is a single paragraph, then surrounding it with <P>..</P></span>
<a name="line-1758"></a><span class='hs-comment'>-- can add too much whitespace in some browsers (eg. IE). However if</span>
<a name="line-1759"></a><span class='hs-comment'>-- we have multiple paragraphs, then we want the extra whitespace to</span>
<a name="line-1760"></a><span class='hs-comment'>-- separate them. So we catch the single paragraph case and transform it</span>
<a name="line-1761"></a><span class='hs-comment'>-- here.</span>
<a name="line-1762"></a><span class='hs-definition'>unParagraph</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Doc</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Doc</span> <span class='hs-varid'>a</span>
<a name="line-1763"></a><span class='hs-definition'>unParagraph</span> <span class='hs-layout'>(</span><span class='hs-conid'>DocParagraph</span> <span class='hs-varid'>d</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>d</span>
<a name="line-1764"></a><span class='hs-comment'>--NO: This eliminates line breaks in the code block: (SDM, 6/5/2003)</span>
<a name="line-1765"></a><span class='hs-comment'>--unParagraph (DocCodeBlock d) = (DocMonospaced d)</span>
<a name="line-1766"></a><span class='hs-definition'>unParagraph</span> <span class='hs-varid'>doc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doc</span>
<a name="line-1767"></a>
<a name="line-1768"></a><a name="htmlCleanup"></a><span class='hs-definition'>htmlCleanup</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DocMarkup</span> <span class='hs-varid'>a</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span>
<a name="line-1769"></a><span class='hs-definition'>htmlCleanup</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>idMarkup</span> <span class='hs-layout'>{</span>
<a name="line-1770"></a> <span class='hs-varid'>markupUnorderedList</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DocUnorderedList</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-varid'>unParagraph</span><span class='hs-layout'>,</span>
<a name="line-1771"></a> <span class='hs-varid'>markupOrderedList</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DocOrderedList</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-varid'>unParagraph</span>
<a name="line-1772"></a> <span class='hs-layout'>}</span>
<a name="line-1773"></a>
<a name="line-1774"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span>
<a name="line-1775"></a><span class='hs-comment'>-- * Misc</span>
<a name="line-1776"></a>
<a name="line-1777"></a>
<a name="line-1778"></a><a name="hsep"></a><span class='hs-definition'>hsep</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1779"></a><span class='hs-definition'>hsep</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>noHtml</span>
<a name="line-1780"></a><span class='hs-definition'>hsep</span> <span class='hs-varid'>htmls</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foldr1</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>a</span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span><span class='hs-varop'>+++</span><span class='hs-str'>" "</span><span class='hs-varop'>+++</span><span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-varid'>htmls</span>
<a name="line-1781"></a>
<a name="line-1782"></a><span class='hs-keyword'>infixr</span> <span class='hs-num'>8</span> <span class='hs-varop'><+></span><span class='hs-layout'>,</span> <span class='hs-varop'><++></span>
<a name="line-1783"></a><a name="<+>"></a><span class='hs-layout'>(</span><span class='hs-varop'><+></span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1784"></a><a name="a"></a><span class='hs-definition'>a</span> <span class='hs-varop'><+></span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span> <span class='hs-layout'>(</span><span class='hs-varid'>getHtmlElements</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-conid'>HtmlString</span> <span class='hs-str'>" "</span><span class='hs-conop'>:</span> <span class='hs-varid'>getHtmlElements</span> <span class='hs-layout'>(</span><span class='hs-varid'>toHtml</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1785"></a>
<a name="line-1786"></a><a name="<++>"></a><span class='hs-layout'>(</span><span class='hs-varop'><++></span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1787"></a><span class='hs-definition'>a</span> <span class='hs-varop'><++></span> <span class='hs-varid'>b</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>a</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>spaceHtml</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>b</span>
<a name="line-1788"></a>
<a name="line-1789"></a><a name="keyword"></a><span class='hs-definition'>keyword</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1790"></a><span class='hs-definition'>keyword</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>thespan</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"keyword"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-varid'>s</span>
<a name="line-1791"></a>
<a name="line-1792"></a><a name="equals"></a><span class='hs-definition'>equals</span><span class='hs-layout'>,</span> <span class='hs-varid'>comma</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span>
<a name="line-1793"></a><span class='hs-definition'>equals</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>char</span> <span class='hs-chr'>'='</span>
<a name="line-1794"></a><a name="comma"></a><span class='hs-definition'>comma</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>char</span> <span class='hs-chr'>','</span>
<a name="line-1795"></a>
<a name="line-1796"></a><a name="char"></a><span class='hs-definition'>char</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Char</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1797"></a><span class='hs-definition'>char</span> <span class='hs-varid'>c</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>c</span><span class='hs-keyglyph'>]</span>
<a name="line-1798"></a>
<a name="line-1799"></a><a name="empty"></a><span class='hs-definition'>empty</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span>
<a name="line-1800"></a><span class='hs-definition'>empty</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>noHtml</span>
<a name="line-1801"></a>
<a name="line-1802"></a>
<a name="line-1803"></a><a name="quote"></a><span class='hs-definition'>quote</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1804"></a><span class='hs-definition'>quote</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>char</span> <span class='hs-chr'>'`'</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span> <span class='hs-varop'>+++</span> <span class='hs-chr'>'`'</span>
<a name="line-1805"></a>
<a name="line-1806"></a>
<a name="line-1807"></a><a name="parens"></a><span class='hs-definition'>parens</span><span class='hs-layout'>,</span> <span class='hs-varid'>brackets</span><span class='hs-layout'>,</span> <span class='hs-varid'>pabrackets</span><span class='hs-layout'>,</span> <span class='hs-varid'>braces</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1808"></a><span class='hs-definition'>parens</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>char</span> <span class='hs-chr'>'('</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>char</span> <span class='hs-chr'>')'</span>
<a name="line-1809"></a><a name="brackets"></a><span class='hs-definition'>brackets</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>char</span> <span class='hs-chr'>'['</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>char</span> <span class='hs-chr'>']'</span>
<a name="line-1810"></a><a name="pabrackets"></a><span class='hs-definition'>pabrackets</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"[:"</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>":]"</span>
<a name="line-1811"></a><a name="braces"></a><span class='hs-definition'>braces</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>char</span> <span class='hs-chr'>'{'</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>char</span> <span class='hs-chr'>'}'</span>
<a name="line-1812"></a>
<a name="line-1813"></a><a name="punctuate"></a><span class='hs-definition'>punctuate</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span>
<a name="line-1814"></a><span class='hs-definition'>punctuate</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span>
<a name="line-1815"></a><span class='hs-definition'>punctuate</span> <span class='hs-varid'>h</span> <span class='hs-layout'>(</span><span class='hs-varid'>d0</span><span class='hs-conop'>:</span><span class='hs-varid'>ds</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span> <span class='hs-varid'>d0</span> <span class='hs-varid'>ds</span>
<a name="line-1816"></a> <span class='hs-keyword'>where</span>
<a name="line-1817"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>d</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>d</span><span class='hs-keyglyph'>]</span>
<a name="line-1818"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>d</span> <span class='hs-layout'>(</span><span class='hs-varid'>e</span><span class='hs-conop'>:</span><span class='hs-varid'>es</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>d</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-conop'>:</span> <span class='hs-varid'>go</span> <span class='hs-varid'>e</span> <span class='hs-varid'>es</span>
<a name="line-1819"></a>
<a name="line-1820"></a><a name="abovesSep"></a><span class='hs-definition'>abovesSep</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HtmlTable</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>HtmlTable</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1821"></a><span class='hs-definition'>abovesSep</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1822"></a><span class='hs-definition'>abovesSep</span> <span class='hs-varid'>h</span> <span class='hs-layout'>(</span><span class='hs-varid'>d0</span><span class='hs-conop'>:</span><span class='hs-varid'>ds</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span> <span class='hs-varid'>d0</span> <span class='hs-varid'>ds</span>
<a name="line-1823"></a> <span class='hs-keyword'>where</span>
<a name="line-1824"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>d</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>d</span>
<a name="line-1825"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>d</span> <span class='hs-layout'>(</span><span class='hs-varid'>e</span><span class='hs-conop'>:</span><span class='hs-varid'>es</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>d</span> <span class='hs-varop'></></span> <span class='hs-varid'>h</span> <span class='hs-varop'></></span> <span class='hs-varid'>go</span> <span class='hs-varid'>e</span> <span class='hs-varid'>es</span>
<a name="line-1826"></a>
<a name="line-1827"></a><a name="parenList"></a><span class='hs-definition'>parenList</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1828"></a><span class='hs-definition'>parenList</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>parens</span> <span class='hs-varop'>.</span> <span class='hs-varid'>hsep</span> <span class='hs-varop'>.</span> <span class='hs-varid'>punctuate</span> <span class='hs-varid'>comma</span>
<a name="line-1829"></a>
<a name="line-1830"></a><a name="ubxParenList"></a><span class='hs-definition'>ubxParenList</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1831"></a><span class='hs-definition'>ubxParenList</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ubxparens</span> <span class='hs-varop'>.</span> <span class='hs-varid'>hsep</span> <span class='hs-varop'>.</span> <span class='hs-varid'>punctuate</span> <span class='hs-varid'>comma</span>
<a name="line-1832"></a>
<a name="line-1833"></a><a name="ubxparens"></a><span class='hs-definition'>ubxparens</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1834"></a><span class='hs-definition'>ubxparens</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"(#"</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>h</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"#)"</span>
<a name="line-1835"></a>
<a name="line-1836"></a><span class='hs-comment'>{-
<a name="line-1837"></a>text :: Html
<a name="line-1838"></a>text = strAttr "TEXT"
<a name="line-1839"></a>-}</span>
<a name="line-1840"></a>
<a name="line-1841"></a><a name="declBox"></a><span class='hs-comment'>-- a box for displaying code</span>
<a name="line-1842"></a><span class='hs-definition'>declBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1843"></a><span class='hs-definition'>declBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"decl"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1844"></a>
<a name="line-1845"></a><a name="topDeclBox"></a><span class='hs-comment'>-- a box for top level documented names</span>
<a name="line-1846"></a><span class='hs-comment'>-- it adds a source and wiki link at the right hand side of the box</span>
<a name="line-1847"></a><span class='hs-definition'>topDeclBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>LinksInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SrcSpan</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DocName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1848"></a><span class='hs-definition'>topDeclBox</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>declBox</span> <span class='hs-varid'>html</span>
<a name="line-1849"></a><span class='hs-definition'>topDeclBox</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-varid'>maybe_source_url</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-varid'>maybe_wiki_url</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1850"></a> <span class='hs-varid'>loc</span> <span class='hs-varid'>name</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-1851"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"topdecl"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-1852"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"declbar"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-1853"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"declname"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span><span class='hs-layout'>)</span>
<a name="line-1854"></a> <span class='hs-varop'><-></span> <span class='hs-varid'>srcLink</span>
<a name="line-1855"></a> <span class='hs-varop'><-></span> <span class='hs-varid'>wikiLink</span><span class='hs-layout'>)</span>
<a name="line-1856"></a> <span class='hs-layout'>)</span>
<a name="line-1857"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>srcLink</span> <span class='hs-keyglyph'>=</span>
<a name="line-1858"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_source_url</span> <span class='hs-keyword'>of</span>
<a name="line-1859"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1860"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"declbut"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-1861"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>url'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>spliceURL</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>fname</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>origMod</span><span class='hs-layout'>)</span>
<a name="line-1862"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>loc</span><span class='hs-layout'>)</span> <span class='hs-varid'>url</span>
<a name="line-1863"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url'</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Source"</span>
<a name="line-1864"></a>
<a name="line-1865"></a> <span class='hs-varid'>wikiLink</span> <span class='hs-keyglyph'>=</span>
<a name="line-1866"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybe_wiki_url</span> <span class='hs-keyword'>of</span>
<a name="line-1867"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>emptyTable</span>
<a name="line-1868"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>url</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"declbut"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span>
<a name="line-1869"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>url'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>spliceURL</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>fname</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>mdl</span><span class='hs-layout'>)</span>
<a name="line-1870"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>loc</span><span class='hs-layout'>)</span> <span class='hs-varid'>url</span>
<a name="line-1871"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>url'</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Comments"</span>
<a name="line-1872"></a>
<a name="line-1873"></a> <span class='hs-comment'>-- For source links, we want to point to the original module,</span>
<a name="line-1874"></a> <span class='hs-comment'>-- because only that will have the source. </span>
<a name="line-1875"></a> <span class='hs-comment'>-- TODO: do something about type instances. They will point to</span>
<a name="line-1876"></a> <span class='hs-comment'>-- the module defining the type family, which is wrong.</span>
<a name="line-1877"></a> <span class='hs-varid'>origMod</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nameModule</span> <span class='hs-varid'>n</span>
<a name="line-1878"></a>
<a name="line-1879"></a> <span class='hs-comment'>-- Name must be documented, otherwise we wouldn't get here</span>
<a name="line-1880"></a> <span class='hs-conid'>Documented</span> <span class='hs-varid'>n</span> <span class='hs-varid'>mdl</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>name</span>
<a name="line-1881"></a>
<a name="line-1882"></a> <span class='hs-varid'>fname</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unpackFS</span> <span class='hs-layout'>(</span><span class='hs-varid'>srcSpanFile</span> <span class='hs-varid'>loc</span><span class='hs-layout'>)</span>
<a name="line-1883"></a>
<a name="line-1884"></a>
<a name="line-1885"></a><a name="argBox"></a><span class='hs-comment'>-- a box for displaying an 'argument' (some code which has text to the</span>
<a name="line-1886"></a><span class='hs-comment'>-- right of it). Wrapping is not allowed in these boxes, whereas it is</span>
<a name="line-1887"></a><span class='hs-comment'>-- in a declBox.</span>
<a name="line-1888"></a><span class='hs-definition'>argBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1889"></a><span class='hs-definition'>argBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"arg"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1890"></a>
<a name="line-1891"></a><a name="docBox"></a><span class='hs-comment'>-- a box for displaying documentation, </span>
<a name="line-1892"></a><span class='hs-comment'>-- indented and with a little padding at the top</span>
<a name="line-1893"></a><span class='hs-definition'>docBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1894"></a><span class='hs-definition'>docBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"doc"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1895"></a>
<a name="line-1896"></a><a name="ndocBox"></a><span class='hs-comment'>-- a box for displaying documentation, not indented.</span>
<a name="line-1897"></a><span class='hs-definition'>ndocBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1898"></a><span class='hs-definition'>ndocBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"ndoc"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1899"></a>
<a name="line-1900"></a><a name="rdocBox"></a><span class='hs-comment'>-- a box for displaying documentation, padded on the left a little</span>
<a name="line-1901"></a><span class='hs-definition'>rdocBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1902"></a><span class='hs-definition'>rdocBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"rdoc"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1903"></a>
<a name="line-1904"></a><a name="maybeRDocBox"></a><span class='hs-definition'>maybeRDocBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Doc</span> <span class='hs-conid'>DocName</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1905"></a><span class='hs-definition'>maybeRDocBox</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>rdocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>noHtml</span><span class='hs-layout'>)</span>
<a name="line-1906"></a><span class='hs-definition'>maybeRDocBox</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>rdocBox</span> <span class='hs-layout'>(</span><span class='hs-varid'>docToHtml</span> <span class='hs-varid'>doc</span><span class='hs-layout'>)</span>
<a name="line-1907"></a>
<a name="line-1908"></a><a name="topButBox"></a><span class='hs-comment'>-- a box for the buttons at the top of the page</span>
<a name="line-1909"></a><span class='hs-definition'>topButBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1910"></a><span class='hs-definition'>topButBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"topbut"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1911"></a>
<a name="line-1912"></a><a name="bodyBox"></a><span class='hs-definition'>bodyBox</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1913"></a><span class='hs-definition'>bodyBox</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"body"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>vanillaTable</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1914"></a>
<a name="line-1915"></a><a name="vanillaTable"></a><span class='hs-comment'>-- a vanilla table has width 100%, no border, no padding, no spacing</span>
<a name="line-1916"></a><span class='hs-comment'>-- a narrow table is the same but without width 100%.</span>
<a name="line-1917"></a><span class='hs-definition'>vanillaTable</span><span class='hs-layout'>,</span> <span class='hs-varid'>vanillaTable2</span><span class='hs-layout'>,</span> <span class='hs-varid'>narrowTable</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1918"></a><span class='hs-definition'>vanillaTable</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"vanilla"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-keyglyph'>]</span>
<a name="line-1919"></a><a name="vanillaTable2"></a><span class='hs-definition'>vanillaTable2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"vanilla2"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-keyglyph'>]</span>
<a name="line-1920"></a><a name="narrowTable"></a><span class='hs-definition'>narrowTable</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"narrow"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-keyglyph'>]</span>
<a name="line-1921"></a>
<a name="line-1922"></a><a name="spacedTable1"></a><span class='hs-definition'>spacedTable1</span><span class='hs-layout'>,</span> <span class='hs-varid'>spacedTable5</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1923"></a><span class='hs-definition'>spacedTable1</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"vanilla"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>1</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-keyglyph'>]</span>
<a name="line-1924"></a><a name="spacedTable5"></a><span class='hs-definition'>spacedTable5</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>table</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>theclass</span> <span class='hs-str'>"vanilla"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellspacing</span> <span class='hs-num'>5</span><span class='hs-layout'>,</span> <span class='hs-varid'>cellpadding</span> <span class='hs-num'>0</span><span class='hs-keyglyph'>]</span>
<a name="line-1925"></a>
<a name="line-1926"></a><a name="constrHdr"></a><span class='hs-definition'>constrHdr</span><span class='hs-layout'>,</span> <span class='hs-varid'>methHdr</span><span class='hs-layout'>,</span> <span class='hs-varid'>atHdr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1927"></a><span class='hs-definition'>constrHdr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section4"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Constructors"</span>
<a name="line-1928"></a><a name="methHdr"></a><span class='hs-definition'>methHdr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section4"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Methods"</span>
<a name="line-1929"></a><a name="atHdr"></a><span class='hs-definition'>atHdr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section4"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"Associated Types"</span>
<a name="line-1930"></a>
<a name="line-1931"></a><a name="instHdr"></a><span class='hs-definition'>instHdr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1932"></a><span class='hs-definition'>instHdr</span> <span class='hs-varid'>id_</span> <span class='hs-keyglyph'>=</span>
<a name="line-1933"></a> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"section4"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-layout'>(</span><span class='hs-varid'>collapsebutton</span> <span class='hs-varid'>id_</span> <span class='hs-varop'>+++</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>" Instances"</span><span class='hs-layout'>)</span>
<a name="line-1934"></a>
<a name="line-1935"></a><a name="dcolon"></a><span class='hs-definition'>dcolon</span><span class='hs-layout'>,</span> <span class='hs-varid'>arrow</span><span class='hs-layout'>,</span> <span class='hs-varid'>darrow</span><span class='hs-layout'>,</span> <span class='hs-varid'>forallSymbol</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1936"></a><span class='hs-definition'>dcolon</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>unicode</span> <span class='hs-keyword'>then</span> <span class='hs-str'>"∷"</span> <span class='hs-keyword'>else</span> <span class='hs-str'>"::"</span><span class='hs-layout'>)</span>
<a name="line-1937"></a><a name="arrow"></a><span class='hs-definition'>arrow</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>unicode</span> <span class='hs-keyword'>then</span> <span class='hs-str'>"→"</span> <span class='hs-keyword'>else</span> <span class='hs-str'>"->"</span><span class='hs-layout'>)</span>
<a name="line-1938"></a><a name="darrow"></a><span class='hs-definition'>darrow</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>unicode</span> <span class='hs-keyword'>then</span> <span class='hs-str'>"⇒"</span> <span class='hs-keyword'>else</span> <span class='hs-str'>"=>"</span><span class='hs-layout'>)</span>
<a name="line-1939"></a><a name="forallSymbol"></a><span class='hs-definition'>forallSymbol</span> <span class='hs-varid'>unicode</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>unicode</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"∀"</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>keyword</span> <span class='hs-str'>"forall"</span>
<a name="line-1940"></a>
<a name="line-1941"></a>
<a name="line-1942"></a><a name="dot"></a><span class='hs-definition'>dot</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span>
<a name="line-1943"></a><span class='hs-definition'>dot</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toHtml</span> <span class='hs-str'>"."</span>
<a name="line-1944"></a>
<a name="line-1945"></a>
<a name="line-1946"></a><a name="s8"></a><span class='hs-definition'>s8</span><span class='hs-layout'>,</span> <span class='hs-varid'>s15</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>HtmlTable</span>
<a name="line-1947"></a><span class='hs-definition'>s8</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"s8"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>noHtml</span>
<a name="line-1948"></a><a name="s15"></a><span class='hs-definition'>s15</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tda</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"s15"</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>noHtml</span>
<a name="line-1949"></a>
<a name="line-1950"></a>
<a name="line-1951"></a><a name="namedAnchor"></a><span class='hs-comment'>-- | Generate a named anchor</span>
<a name="line-1952"></a><span class='hs-comment'>--</span>
<a name="line-1953"></a><span class='hs-comment'>-- This actually generates two anchor tags, one with the name unescaped, and one</span>
<a name="line-1954"></a><span class='hs-comment'>-- with the name URI-escaped. This is needed because Opera 9.52 (and later</span>
<a name="line-1955"></a><span class='hs-comment'>-- versions) needs the name to be unescaped, while IE 7 needs it to be escaped.</span>
<a name="line-1956"></a><span class='hs-comment'>--</span>
<a name="line-1957"></a><span class='hs-definition'>namedAnchor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1958"></a><span class='hs-definition'>namedAnchor</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>name</span> <span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-layout'>(</span><span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Html</span><span class='hs-varop'>.</span><span class='hs-varid'>name</span> <span class='hs-layout'>(</span><span class='hs-varid'>escapeStr</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-1959"></a>
<a name="line-1960"></a>
<a name="line-1961"></a><span class='hs-comment'>--</span>
<a name="line-1962"></a><span class='hs-comment'>-- A section of HTML which is collapsible via a +/- button.</span>
<a name="line-1963"></a><span class='hs-comment'>--</span>
<a name="line-1964"></a>
<a name="line-1965"></a><span class='hs-comment'>-- TODO: Currently the initial state is non-collapsed. Change the 'minusFile'</span>
<a name="line-1966"></a><span class='hs-comment'>-- below to a 'plusFile' and the 'display:block;' to a 'display:none;' when we</span>
<a name="line-1967"></a><span class='hs-comment'>-- use cookies from JavaScript to have a more persistent state.</span>
<a name="line-1968"></a>
<a name="line-1969"></a><a name="collapsebutton"></a><span class='hs-definition'>collapsebutton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1970"></a><span class='hs-definition'>collapsebutton</span> <span class='hs-varid'>id_</span> <span class='hs-keyglyph'>=</span>
<a name="line-1971"></a> <span class='hs-varid'>image</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>src</span> <span class='hs-varid'>minusFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>theclass</span> <span class='hs-str'>"coll"</span><span class='hs-layout'>,</span> <span class='hs-varid'>onclick</span> <span class='hs-layout'>(</span><span class='hs-str'>"toggle(this,'"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>id_</span> <span class='hs-varop'>++</span> <span class='hs-str'>"')"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>alt</span> <span class='hs-str'>"show/hide"</span> <span class='hs-keyglyph'>]</span>
<a name="line-1972"></a>
<a name="line-1973"></a><a name="collapsed"></a><span class='hs-definition'>collapsed</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>HTML</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-layout'>(</span><span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1974"></a><span class='hs-definition'>collapsed</span> <span class='hs-varid'>fn</span> <span class='hs-varid'>id_</span> <span class='hs-varid'>html</span> <span class='hs-keyglyph'>=</span>
<a name="line-1975"></a> <span class='hs-varid'>fn</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>identifier</span> <span class='hs-varid'>id_</span><span class='hs-layout'>,</span> <span class='hs-varid'>thestyle</span> <span class='hs-str'>"display:block;"</span><span class='hs-keyglyph'>]</span> <span class='hs-varop'><<</span> <span class='hs-varid'>html</span>
<a name="line-1976"></a>
<a name="line-1977"></a><a name="collapseId"></a><span class='hs-comment'>-- A quote is a valid part of a Haskell identifier, but it would interfere with</span>
<a name="line-1978"></a><span class='hs-comment'>-- the ECMA script string delimiter used in collapsebutton above.</span>
<a name="line-1979"></a><span class='hs-definition'>collapseId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Name</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-1980"></a><span class='hs-definition'>collapseId</span> <span class='hs-varid'>nm</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"i:"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>escapeStr</span> <span class='hs-layout'>(</span><span class='hs-varid'>getOccString</span> <span class='hs-varid'>nm</span><span class='hs-layout'>)</span>
<a name="line-1981"></a>
<a name="line-1982"></a><a name="linkedAnchor"></a><span class='hs-definition'>linkedAnchor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Html</span>
<a name="line-1983"></a><span class='hs-definition'>linkedAnchor</span> <span class='hs-varid'>frag</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>anchor</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>hr_</span><span class='hs-keyglyph'>]</span>
<a name="line-1984"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>hr_</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>frag</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>""</span>
<a name="line-1985"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-chr'>'#'</span><span class='hs-conop'>:</span> <span class='hs-varid'>escapeStr</span> <span class='hs-varid'>frag</span>
<a name="line-1986"></a>
<a name="line-1987"></a><a name="documentCharacterEncoding"></a><span class='hs-definition'>documentCharacterEncoding</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span>
<a name="line-1988"></a><span class='hs-definition'>documentCharacterEncoding</span> <span class='hs-keyglyph'>=</span>
<a name="line-1989"></a> <span class='hs-varid'>meta</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>httpequiv</span> <span class='hs-str'>"Content-Type"</span><span class='hs-layout'>,</span> <span class='hs-varid'>content</span> <span class='hs-str'>"text/html; charset=UTF-8"</span><span class='hs-keyglyph'>]</span>
<a name="line-1990"></a>
<a name="line-1991"></a><a name="styleSheet"></a><span class='hs-definition'>styleSheet</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Html</span>
<a name="line-1992"></a><span class='hs-definition'>styleSheet</span> <span class='hs-keyglyph'>=</span>
<a name="line-1993"></a> <span class='hs-varid'>thelink</span> <span class='hs-varop'>!</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>href</span> <span class='hs-varid'>cssFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>rel</span> <span class='hs-str'>"stylesheet"</span><span class='hs-layout'>,</span> <span class='hs-varid'>thetype</span> <span class='hs-str'>"text/css"</span><span class='hs-keyglyph'>]</span>
</pre></body>
</html>
distrib
>
Fedora
>
14
>
x86_64
>
media
>
updates
>
by-pkgid
>
33ad064c4b642ed30353356a1d094330
>
files
>
88
