From c4145c9b0a3b1bf7111a8b474a53d39acb6c18e7 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 26 Mar 2024 18:23:59 +0300 Subject: [PATCH] wip --- hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs index 6541ab8a..14c207d6 100644 --- 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)