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

only exclusive links

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-23 02:56:21 +03:00
parent a1ed3d00ef
commit a68d05ad9f
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/Package.hs
View File

@ -17,6 +17,7 @@ getPackageR pn = do
packages <- E.select $ E.from $ \(p, s) -> do
E.where_ $ (p ^. PackageStackage E.==. s ^. StackageId)
&&. (p ^. PackageName' E.==. E.val pn)
&&. (s ^. StackageTitle `E.like` E.val "%, exclusive")
E.orderBy [E.desc $ s ^. StackageUploaded]
E.limit maxSnaps
--selectList [PackageName' ==. pn] [LimitTo 10, Desc PackageStackage]

2
templates/package.hamlet
View File

@ -15,7 +15,7 @@
<ul>
$forall (Value version, Value title, Value ident, Value hasHaddocks) <- packages
<li>
<a href=@{StackageHomeR ident}>#{title}
<a href=@{StackageHomeR ident}>#{fromMaybe title $ stripSuffix ", exclusive" title}
(version #{version})
$if hasHaddocks
<a href=@{haddocksLink ident version}>(haddocks)