Commit 321bdd95 authored by Libby Horacek's avatar Libby Horacek Committed by Sumit Sahrawat

Use a Map instead of list of tuples for commInfo

It's a bit closer to a dictionary.
parent 8de1a9e0
......@@ -178,7 +178,7 @@ replyTo config _ _ CommInfoRequest{} replyHeader =
return
CommInfoReply
{ header = replyHeader
, commInfo = [] }
, commInfo = mempty }
replyTo config _ interface ShutdownRequest { restartPending = pending } replyHeader = do
liftIO $ writeChan (shellReplyChannel interface) $ ShutdownReply replyHeader pending
......
......@@ -306,7 +306,7 @@ data Message =
-- | A response to a CommInfoRequest.
CommInfoReply
{ header :: MessageHeader
, commInfo :: [(String, String)] -- ^ A dictionary of the comms, indexed by uuids.
, commInfo :: Map String String -- ^ A dictionary of the comms, indexed by uuids.
}
|
-- | A request from a frontend to execute some code.
......
......@@ -267,7 +267,7 @@ replyTo _ CommInfoRequest{} replyHeader state =
return
(state, CommInfoReply
{ header = replyHeader
, commInfo = []
, commInfo = mempty
})
-- Reply to a shutdown request by exiting the main thread. Before shutdown, reply to the request to
......
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