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

wip

This commit is contained in:
voidlizard 2025-01-02 10:45:55 +03:00
parent 82f97e148c
commit 289e9f7120
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hbs2-git3/app/Main.hs
View File

@ -615,16 +615,6 @@ theDict = do
for_ (HPSQ.toList r) $ \(k,_,_) -> do for_ (HPSQ.toList r) $ \(k,_,_) -> do
liftIO $ print $ pretty k liftIO $ print $ pretty k
entry $ bindMatch "test:git:read-commit-chain-dfs" $ nil_ $ \syn -> lift do
let (_, argz) = splitOpts [] syn
let hd = headDef "HEAD" [ x | StringLike x <- argz]
h <- gitRevParseThrow hd
r <- readCommitChainHPSQ (const $ pure True) Nothing h (\c -> debug $ "commit" <+> pretty c)
<&> HPSQ.toList
<&> sortBy (comparing (view _2))
for_ r $ \(c,_,_) -> do
liftIO $ print $ pretty c
entry $ bindMatch "test:git:log:cat" $ nil_ $ \syn -> lift do entry $ bindMatch "test:git:log:cat" $ nil_ $ \syn -> lift do