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

wip,fix

This commit is contained in:
voidlizard 2025-01-19 21:01:39 +03:00
parent 3d27321241
commit 3b9bb622c5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-git3/lib/HBS2/Git3/Run.hs
View File

@ -327,7 +327,7 @@ theDict = do
found <- liftIO $ binarySearchBS 56 (BS.take 20 . BS.drop 4) (coerce h) file
liftIO $ notice $ pretty h <+> pretty (isJust found)
entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift do
entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift $ connectedDo do
let (_, argz) = splitOpts [] syn
@ -453,7 +453,7 @@ theDict = do
_ -> throwIO (BadFormException @C nil)
entry $ bindMatch "git:commit:list:objects:new" $ nil_ $ \case
[ StringLike what ] -> lift do
[ StringLike what ] -> lift $ connectedDo do
commit <- gitRevParseThrow what
@ -487,7 +487,7 @@ theDict = do
_ -> throwIO (BadFormException @C nil)
entry $ bindMatch "git:list:objects:new" $ nil_ $ \syn -> lift do
entry $ bindMatch "git:list:objects:new" $ nil_ $ \syn -> lift $ connectedDo do
let (opts,argz) = splitOpts [] syn
let what = headDef "HEAD" [ x | StringLike x <- argz ]