mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-11 19:58:28 +01:00
38 lines
1.8 KiB
Plaintext
38 lines
1.8 KiB
Plaintext
<div .container>
|
|
<div .content>
|
|
<h1>Hoogle Search
|
|
^{hoogleForm}
|
|
$case mresults
|
|
$of HoogleQueryBad _err
|
|
$of HoogleQueryOutput query results mtotalCount
|
|
<p>Searched for: #{preEscapedToHtml query}
|
|
$if null results
|
|
<p>Your search produced no results.
|
|
$else
|
|
<ol .search-results>
|
|
$forall HoogleResult url sources self docs <- results
|
|
<li>
|
|
<p .self>
|
|
<a href=#{url}>#{preEscapedToHtml self}
|
|
<table .sources>
|
|
$forall (pkg, modus) <- sources
|
|
<tr>
|
|
<th>
|
|
<a href=#{plURL pkg}>#{plName pkg}
|
|
<td>
|
|
$forall ModuleLink name url' <- modus
|
|
<a href=#{url'}>#{name}
|
|
$if null docs
|
|
<p .nodocs>No documentation available.
|
|
$else
|
|
<p .docs>#{docs}
|
|
<p .pagination>
|
|
$with mpageCount <- fmap getPageCount mtotalCount
|
|
Page #{page} of #{maybe "many" show mpageCount} #
|
|
$if page > 1
|
|
|
|
|
<a href=@?{pageLink $ page - 1}>Previous
|
|
$if maybe True ((<) page) mpageCount
|
|
|
|
|
<a href=@?{pageLink $ page + 1}>Next
|