wip

2024-03-26 18:23:59 +03:00 · 2024-03-26 18:23:59 +03:00 · c4145c9b0a
parent 9e26aefbfd
commit c4145c9b0a
1 changed files with 0 additions and 5 deletions
--- a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
+++ b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
@ -195,11 +195,6 @@ runDump pks = do
    let sout = getStdout p
    client <- newMessagingPipe (sout,ssin) -- ,sout)

-    -- forever do
-    --   liftIO $ LBS.hPutStr ssin "\x10 AAAAAAAAAAAAAAAAAAAAAAA\r\n"
-    --   hFlush ssin
-    --   pause @'Seconds 1
-
    void $ ContT $ withAsync $ runMessagingPipe client

    caller <- makeServiceCaller @BrowserPluginAPI @PIPE (localPeer client)