From 49828b012fc9bc0e916ff9ceac1f97def4049b45 Mon Sep 17 00:00:00 2001
From: Konstantin Zudov <konstantin@anche.no>
Date: Sat, 17 Oct 2015 17:15:36 +0300
Subject: [PATCH] Do not use nightlyBefore/ltsBefore

---
 Handler/Feed.hs      | 5 +----
 Stackage/Database.hs | 2 --
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/Handler/Feed.hs b/Handler/Feed.hs
index 3e39457..1e5dfa4 100644
--- a/Handler/Feed.hs
+++ b/Handler/Feed.hs
@@ -52,10 +52,7 @@ mkFeed mBranch snaps = do
 
 getContent :: SnapshotId -> Snapshot -> Handler Html
 getContent sid2 snap = do
-    mprev <-
-        case snapshotName snap of
-            SNLts x y -> ltsBefore x y
-            SNNightly day -> nightlyBefore day
+    mprev <- snapshotBefore $ snapshotName snap
     case mprev of
         Nothing -> return "No previous snapshot found for comparison"
         Just (sid1, name1) -> do
diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index ee721c0..094a990 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -10,8 +10,6 @@ module Stackage.Database
     , newestNightly
     , ltsMajorVersions
     , snapshotBefore
-    , nightlyBefore
-    , ltsBefore
     , lookupSnapshot
     , snapshotTitle
     , PackageListingInfo (..)