mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-19 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #185 from ivanov/add-pyin

Browse Source 
add input code re-broadcast
This commit is contained in:
Andrew Gibiansky 2014-02-06 08:32:04 -08:00
commit 806aa5cfec
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.hs
View File

@ -301,8 +301,11 @@ replyTo interface req@ExecuteRequest{ getCode = code } replyHeader state = do
unless (null pager) $
modifyMVar_ pagerOutput (return . (++ pager ++ "\n"))
-- Run code and publish to the frontend as we go.
let execCount = getExecutionCounter state
-- Let all frontends know the execution count and code that's about to run
inputHeader <- liftIO $ dupHeader replyHeader InputMessage
send $ PublishInput inputHeader (Chars.unpack code) execCount
-- Run code and publish to the frontend as we go.
updatedState <- evaluate state (Chars.unpack code) publish
-- Notify the frontend that we're done computing.