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