Commit 28dd8276 authored by James Brock's avatar James Brock

Update IHaskell kernel for MessageHeader mhBuffers

parent 8c43d47f
......@@ -221,7 +221,7 @@ createReplyHeader parent = do
err = error $ "No reply for message " ++ show (mhMsgType parent)
return $ MessageHeader (mhIdentifiers parent) (Just parent) mempty
newMessageId (mhSessionId parent) (mhUsername parent) repType
newMessageId (mhSessionId parent) (mhUsername parent) repType []
-- | Compute a reply to a message.
replyTo :: ZeroMQInterface -> Message -> MessageHeader -> KernelState -> Interpreter (KernelState, Message)
......
......@@ -94,6 +94,7 @@ getInputLine dir = do
. readMay <$> readFile fpath
let hdr = MessageHeader (mhIdentifiers parentHdr) (Just parentHdr) mempty
uuid (mhSessionId parentHdr) (mhUsername parentHdr) InputRequestMessage
[]
let msg = RequestInput hdr ""
writeChan req msg
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment