From af4ba4feae41adc95162cf576ea2755a012b6edc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 24 Nov 2020 18:12:18 +0200
Subject: [PATCH] Always take from latest snapshot published

---
 src/Stackage/Database/Query.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stackage/Database/Query.hs b/src/Stackage/Database/Query.hs
index ec99900..df7d7e8 100644
--- a/src/Stackage/Database/Query.hs
+++ b/src/Stackage/Database/Query.hs
@@ -606,7 +606,7 @@ getSnapshotPackageLatestVersionQuery pname =
     fmap snd . listToMaybe <$>
     (snapshotPackageInfoQuery $ \_sp s pn v spiQ -> do
          where_ (pn ^. PackageNameName ==. val pname)
-         orderBy [desc (versionArray v), desc (s ^. SnapshotId)]
+         orderBy [desc (s ^. SnapshotId)]
          limit 1
          pure ((), spiQ))