voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, minor fix

This commit is contained in:
Dmitry Zuikov 2024-04-17 10:42:18 +03:00
parent f2451697db
commit 77fe327ea8
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git/git-hbs2/Main.hs
View File

@ -183,7 +183,7 @@ pManifestList :: GitPerks m => Parser (GitCLI m ())
pManifestList = do pManifestList = do
what <- argument pLwwKey (metavar "LWWREF") what <- argument pLwwKey (metavar "LWWREF")
pure do pure do
heads <- withState $ selectRepoHeadsFor DESC what heads <- withState $ selectRepoHeadsFor ASC what
sto <- getStorage sto <- getStorage
for_ heads $ \h -> runMaybeT do for_ heads $ \h -> runMaybeT do

2
hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs
View File

@ -28,6 +28,8 @@ import Data.Coerce
import Streaming.Prelude qualified as S import Streaming.Prelude qualified as S
data Limit = Limit Integer
data SortOrder = ASC | DESC data SortOrder = ASC | DESC
newtype SQL a = SQL a newtype SQL a = SQL a