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-17 11:58:25 +03:00
parent dc60abfd6b
commit 61cccbd5d5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-git3/app/GitRemoteHelper.hs
View File

@ -93,7 +93,7 @@ localDict = makeDict @C do
sendLine "" sendLine ""
entry $ bindMatch "r:push" $ nil_ $ splitPushArgs $ \pushFrom pushTo -> lift do entry $ bindMatch "r:push" $ nil_ $ splitPushArgs $ \pushFrom pushTo -> lift do
notice $ pretty pushFrom <+> pretty pushTo notice $ pretty $ [qc|ok {pretty pushTo}|]
sendLine [qc|ok {pretty pushTo}|] sendLine [qc|ok {pretty pushTo}|]
entry $ bindMatch "r:" $ nil_ $ \syn -> lift do entry $ bindMatch "r:" $ nil_ $ \syn -> lift do
@ -159,7 +159,9 @@ main = flip runContT pure do
next Plain next Plain
_ -> do _ -> do
liftIO exitSuccess sendLine ""
next Plain
-- liftIO exitSuccess
-- debugPrefix :: LoggerEntry -> LoggerEntry -- debugPrefix :: LoggerEntry -> LoggerEntry
debugPrefix = toStderr . logPrefix "[debug] " debugPrefix = toStderr . logPrefix "[debug] "