wip, minor fix

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
 

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