From 289e9f71209bfc5bf1b698cf388a5bb73cbca522 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 2 Jan 2025 10:45:55 +0300 Subject: [PATCH] wip --- hbs2-git3/app/Main.hs | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index 7b3bd6d2..4ed856b7 100644 --- a/hbs2-git3/app/Main.hs +++ b/hbs2-git3/app/Main.hs @@ -615,16 +615,6 @@ theDict = do for_ (HPSQ.toList r) $ \(k,_,_) -> do 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