Commit 50a144ce authored by Vaibhav Sagar's avatar Vaibhav Sagar Committed by Sumit Sahrawat

Minor fixes.

parent 321bdd95
...@@ -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 = mempty } , commInfo = Map.empty }
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
......
...@@ -299,6 +299,7 @@ data Message = ...@@ -299,6 +299,7 @@ data Message =
, implementation :: String -- ^ e.g. IHaskell , implementation :: String -- ^ e.g. IHaskell
, implementationVersion :: String -- ^ The version of the implementation , implementationVersion :: String -- ^ The version of the implementation
, languageInfo :: LanguageInfo , languageInfo :: LanguageInfo
}
| |
-- | A request from a frontend for information about the comms. -- | A request from a frontend for information about the comms.
CommInfoRequest { header :: MessageHeader } CommInfoRequest { header :: MessageHeader }
......
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