haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-05 07:40:26 +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 Data.Tag
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as T import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as LT
import Data.Time (addUTCTime) import Data.Time (addUTCTime)
import Database.Esqueleto ((^.), (&&.), Value (Value)) import Database.Esqueleto ((^.), (&&.), Value (Value))
import qualified Database.Esqueleto as E import qualified Database.Esqueleto as E
import qualified Database.Persist as P import qualified Database.Persist as P
import Formatting import Formatting
import Import import Import
import qualified Text.Blaze.Html.Renderer.Text as LT
import Text.Email.Validate import Text.Email.Validate
-- | Page metadata package. -- | Page metadata package.

17
templates/package.hamlet
View File

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