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

Do not use nightlyBefore/ltsBefore

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-17 17:15:36 +03:00
parent 22a1df30e0
commit 49828b012f
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/Feed.hs
View File

@ -52,10 +52,7 @@ mkFeed mBranch snaps = do
getContent :: SnapshotId -> Snapshot -> Handler Html getContent :: SnapshotId -> Snapshot -> Handler Html
getContent sid2 snap = do getContent sid2 snap = do
mprev <- mprev <- snapshotBefore $ snapshotName snap
case snapshotName snap of
SNLts x y -> ltsBefore x y
SNNightly day -> nightlyBefore day
case mprev of case mprev of
Nothing -> return "No previous snapshot found for comparison" Nothing -> return "No previous snapshot found for comparison"
Just (sid1, name1) -> do Just (sid1, name1) -> do

2
Stackage/Database.hs
View File

@ -10,8 +10,6 @@ module Stackage.Database
, newestNightly , newestNightly
, ltsMajorVersions , ltsMajorVersions
, snapshotBefore , snapshotBefore
, nightlyBefore
, ltsBefore
, lookupSnapshot , lookupSnapshot
, snapshotTitle , snapshotTitle
, PackageListingInfo (..) , PackageListingInfo (..)