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 (..)