haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-09 17:47: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 packages <- E.select $ E.from $ \(p, s) -> do
E.where_ $ (p ^. PackageStackage E.==. s ^. StackageId) E.where_ $ (p ^. PackageStackage E.==. s ^. StackageId)
&&. (p ^. PackageName' E.==. E.val pn) &&. (p ^. PackageName' E.==. E.val pn)
&&. (s ^. StackageTitle `E.like` E.val "%, exclusive")
E.orderBy [E.desc $ s ^. StackageUploaded] E.orderBy [E.desc $ s ^. StackageUploaded]
E.limit maxSnaps E.limit maxSnaps
--selectList [PackageName' ==. pn] [LimitTo 10, Desc PackageStackage] --selectList [PackageName' ==. pn] [LimitTo 10, Desc PackageStackage]

2
templates/package.hamlet
View File

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