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

Link to FAQ; give age of LTS snapshots

Browse Source
This commit is contained in:
Michael Snoyman 2017-01-28 19:30:08 +02:00
parent 7e44c31152
commit cc1dc6ffe5
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Stackage/Database.hs
View File

@ -790,7 +790,7 @@ getPackageCount :: GetStackageDatabase m
getPackageCount sid = run $ count [SnapshotPackageSnapshot ==. sid] getPackageCount sid = run $ count [SnapshotPackageSnapshot ==. sid]
getLatestLtsByGhc :: GetStackageDatabase m getLatestLtsByGhc :: GetStackageDatabase m
=> m [(Int, Int, Text)] => m [(Int, Int, Text, Day)]
getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do
E.select $ E.from $ \(lts `E.InnerJoin` snapshot) -> do E.select $ E.from $ \(lts `E.InnerJoin` snapshot) -> do
E.on $ lts E.^. LtsSnap E.==. snapshot E.^. SnapshotId E.on $ lts E.^. LtsSnap E.==. snapshot E.^. SnapshotId
@ -799,9 +799,9 @@ getLatestLtsByGhc = run $ fmap (dedupe . map toTuple) $ do
return (lts, snapshot) return (lts, snapshot)
where where
toTuple (Entity _ lts, Entity _ snapshot) = toTuple (Entity _ lts, Entity _ snapshot) =
(ltsMajor lts, ltsMinor lts, snapshotGhc snapshot) (ltsMajor lts, ltsMinor lts, snapshotGhc snapshot, snapshotCreated snapshot)
dedupe [] = [] dedupe [] = []
dedupe (x:xs) = x : dedupe (dropWhile (\y -> thd x == thd y) xs) dedupe (x:xs) = x : dedupe (dropWhile (\y -> thd x == thd y) xs)
thd (_, _, x) = x thd (_, _, x, _) = x

14
templates/home.hamlet
View File

@ -33,11 +33,16 @@
bleeding-edge nightly release. bleeding-edge nightly release.
<p> <p>
<a href="https://www.stackage.org/lts"> <a href="/lts">
LTS Haskell LTS Haskell
<p> <p>
<a href="https://www.stackage.org/nightly"> <a href="/nightly">
Stackage Nightly Stackage Nightly
<p>
Have more questions? We have a #
<a href="https://github.com/fpco/stackage#frequently-asked-questions">FAQ section on Github
.
<h3> <h3>
Related initiatives Related initiatives
<p> <p>
@ -51,9 +56,10 @@
<h3> <h3>
Latest LTS per GHC version Latest LTS per GHC version
<ul> <ul>
$forall (major, minor, ghc) <- latestLtsByGhc $forall (major, minor, ghc, date) <- latestLtsByGhc
<li> <li>
<a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for GHC #{ghc} <a href=@{SnapshotR (SNLts major minor) StackageHomeR}>LTS #{major}.#{minor} for GHC #{ghc}#
\, published #{dateDiff now' date}
<h3> <h3>
Package Maintainers Package Maintainers
<p> <p>