From 5f4edc17b3f8d0871ba3ec43dac87d09d613705e Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 24 Nov 2020 16:17:28 +0200
Subject: [PATCH] Try sorting by ID instead

---
 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 24127a2..ec99900 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 ^. SnapshotCreated)]
+         orderBy [desc (versionArray v), desc (s ^. SnapshotId)]
          limit 1
          pure ((), spiQ))