From 77fe327ea8bc8a4479b6ebf121f18cbbe0d606e3 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 17 Apr 2024 10:42:18 +0300
Subject: [PATCH] wip, minor fix

---
 hbs2-git/git-hbs2/Main.hs                             | 2 +-
 hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/hbs2-git/git-hbs2/Main.hs b/hbs2-git/git-hbs2/Main.hs
index 96f7be57..17248066 100644
--- a/hbs2-git/git-hbs2/Main.hs
+++ b/hbs2-git/git-hbs2/Main.hs
@@ -183,7 +183,7 @@ pManifestList :: GitPerks m => Parser (GitCLI m ())
 pManifestList = do
   what <- argument pLwwKey (metavar "LWWREF")
   pure do
-    heads <- withState $ selectRepoHeadsFor DESC what
+    heads <- withState $ selectRepoHeadsFor ASC what
     sto   <- getStorage
     for_ heads $ \h -> runMaybeT do
 
diff --git a/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs b/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs
index 387accb8..d1597beb 100644
--- a/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs
+++ b/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs
@@ -28,6 +28,8 @@ import Data.Coerce
 
 import Streaming.Prelude qualified as S
 
+data Limit = Limit Integer
+
 data SortOrder = ASC | DESC
 
 newtype SQL a = SQL a