haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't make a README section if the content's empty

Browse Source
This commit is contained in:
Chris Done 2014-12-16 11:44:38 +01:00
parent 46c1b6e97f
commit c39cd34765
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Package.hs
View File

@ -9,12 +9,14 @@ import Data.Slug
import Data.Tag
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as LT
import Data.Time (addUTCTime)
import Database.Esqueleto ((^.), (&&.), Value (Value))
import qualified Database.Esqueleto as E
import qualified Database.Persist as P
import Formatting
import Import
import qualified Text.Blaze.Html.Renderer.Text as LT
import Text.Email.Validate
-- | Page metadata package.

17
templates/package.hamlet
View File

@ -108,15 +108,14 @@ $newline never
<li>
<a href=#{url}>#{name}
<div .markdown-container .readme-container>
<div .container .content>
<div .row>
<div .span12 .expanding>
#{metadataReadme metadata}
<div .bottom-gradient>
<i class="fa fa-angle-down">
$if not (LT.null (LT.renderHtml (metadataReadme metadata)))
<div .markdown-container .readme-container>
<div .container .content>
<div .row>
<div .span12 .expanding>
#{metadataReadme metadata}
<div .bottom-gradient>
<i class="fa fa-angle-down">
$maybe log <- metadataChangelog metadata
<div .container .content>