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

better console output

This commit is contained in:
voidlizard 2025-02-13 10:58:43 +03:00
parent 9e2257f9ef
commit cf63dbaa94
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,8 +26,10 @@ import Text.InterpolatedString.Perl6 (qc)
import Data.Text qualified as Text import Data.Text qualified as Text
import Data.Either import Data.Either
import Data.Maybe import Data.Maybe
import Data.List qualified as List
import Data.Config.Suckless.Script import Data.Config.Suckless.Script
import Data.Config.Suckless.System
import System.Exit hiding (die) import System.Exit hiding (die)
import System.Console.ANSI import System.Console.ANSI
@ -160,6 +162,9 @@ main = flip runContT pure do
lift $ void $ installHandler sigPIPE Ignore Nothing lift $ void $ installHandler sigPIPE Ignore Nothing
cp_ <- newTVarIO Nothing cp_ <- newTVarIO Nothing
refz <- newTVarIO mempty
-- doesPathExist
ContT $ withAsync $ liftIO $ flip runContT pure do ContT $ withAsync $ liftIO $ flip runContT pure do
callCC \finished -> do callCC \finished -> do
@ -200,7 +205,10 @@ main = flip runContT pure do
when (isJust cp) do when (isJust cp) do
hPutDoc origHandle $ "fetched from checkpoint" <+> pretty ts <+> pretty cpHash <> line hPutDoc origHandle $ "fetched from checkpoint" <+> pretty ts <+> pretty cpHash <> line
hPutDoc origHandle $ "use" <+> yellow "git fetch" <+> "to get latest versions" <> line new <- readTVarIO refz <&> List.null
when new do
hPutDoc origHandle $ "use" <+> yellow "git fetch" <+> "to get latest versions" <> line
hFlush origHandle hFlush origHandle
@ -241,6 +249,8 @@ main = flip runContT pure do
for_ url updateRepoKey for_ url updateRepoKey
importedRefs >>= atomically . writeTVar refz
flip fix Plain $ \next -> \case flip fix Plain $ \next -> \case
Plain -> do Plain -> do