From f5056a2b8c49c020c37887bab5b2d59d1d220279 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 19 Apr 2020 16:35:40 +0300
Subject: [PATCH] Less memory intensive diff, block robots

---
 config/robots.txt           | 1 +
 src/Handler/StackageHome.hs | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/config/robots.txt b/config/robots.txt
index 71a3797..1a7eeb8 100644
--- a/config/robots.txt
+++ b/config/robots.txt
@@ -1,3 +1,4 @@
 User-agent: *
 Disallow: /haddock/
+Disallow: /diff/
 Sitemap: https://www.stackage.org/sitemap.xml
diff --git a/src/Handler/StackageHome.hs b/src/Handler/StackageHome.hs
index f1e69bb..c11dc78 100644
--- a/src/Handler/StackageHome.hs
+++ b/src/Handler/StackageHome.hs
@@ -53,8 +53,9 @@ getStackageDiffR :: SnapName -> SnapName -> Handler TypedContent
 getStackageDiffR name1 name2 = track "Handler.StackageHome.getStackageDiffR" $ do
     Entity sid1 _ <- lookupSnapshot name1 >>= maybe notFound return
     Entity sid2 _ <- lookupSnapshot name2 >>= maybe notFound return
-    (map (snapshotName . entityVal) -> snapNames) <- getSnapshots Nothing 0 0
-    let (ltsSnaps, nightlySnaps) = partition isLts $ sortOn Down snapNames
+    let fixit = sortOn Down . map (snapshotName . entityVal)
+    ltsSnaps <- fixit <$> getSnapshots (Just LtsBranch) 20 0
+    nightlySnaps <- fixit <$> getSnapshots (Just NightlyBranch) 20 0
     snapDiff <- getSnapshotDiff sid1 sid2
     selectRep $ do
         provideRep $ defaultLayout $ do