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:
Dmitry Zuikov 2024-03-26 18:23:59 +03:00
parent 9e26aefbfd
commit c4145c9b0a
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Run.hs
View File

@ -195,11 +195,6 @@ runDump pks = do
let sout = getStdout p let sout = getStdout p
client <- newMessagingPipe (sout,ssin) -- ,sout) 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 void $ ContT $ withAsync $ runMessagingPipe client
caller <- makeServiceCaller @BrowserPluginAPI @PIPE (localPeer client) caller <- makeServiceCaller @BrowserPluginAPI @PIPE (localPeer client)