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

Less memory intensive diff, block robots

Browse Source
This commit is contained in:
Michael Snoyman 2020-04-19 16:35:40 +03:00
parent 4ad7e421b2
commit f5056a2b8c
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
config/robots.txt
View File

@ -1,3 +1,4 @@
User-agent: * User-agent: *
Disallow: /haddock/ Disallow: /haddock/
Disallow: /diff/
Sitemap: https://www.stackage.org/sitemap.xml Sitemap: https://www.stackage.org/sitemap.xml

5
src/Handler/StackageHome.hs
View File

@ -53,8 +53,9 @@ getStackageDiffR :: SnapName -> SnapName -> Handler TypedContent
getStackageDiffR name1 name2 = track "Handler.StackageHome.getStackageDiffR" $ do getStackageDiffR name1 name2 = track "Handler.StackageHome.getStackageDiffR" $ do
Entity sid1 _ <- lookupSnapshot name1 >>= maybe notFound return Entity sid1 _ <- lookupSnapshot name1 >>= maybe notFound return
Entity sid2 _ <- lookupSnapshot name2 >>= maybe notFound return Entity sid2 _ <- lookupSnapshot name2 >>= maybe notFound return
(map (snapshotName . entityVal) -> snapNames) <- getSnapshots Nothing 0 0 let fixit = sortOn Down . map (snapshotName . entityVal)
let (ltsSnaps, nightlySnaps) = partition isLts $ sortOn Down snapNames ltsSnaps <- fixit <$> getSnapshots (Just LtsBranch) 20 0
nightlySnaps <- fixit <$> getSnapshots (Just NightlyBranch) 20 0
snapDiff <- getSnapshotDiff sid1 sid2 snapDiff <- getSnapshotDiff sid1 sid2
selectRep $ do selectRep $ do
provideRep $ defaultLayout $ do provideRep $ defaultLayout $ do