diff --git a/hbs2-git3/app/GitRemoteHelper.hs b/hbs2-git3/app/GitRemoteHelper.hs index e1095f35..4f256642 100644 --- a/hbs2-git3/app/GitRemoteHelper.hs +++ b/hbs2-git3/app/GitRemoteHelper.hs @@ -159,8 +159,8 @@ main = flip runContT pure do pause @'Seconds 0.05 ContT $ bracket none $ const do - -- IO.hPutStr origHandle (replicate 100 ' ') - -- IO.hPutStr origHandle "\rdone\n" + IO.hPutStr origHandle (replicate 100 ' ') + IO.hPutStr origHandle "\r" silence lift $ void $ installHandler sigPIPE Ignore Nothing