Minor fixes.

This commit is contained in:
Vaibhav Sagar 2016-10-04 01:07:37 +00:00 committed by Sumit Sahrawat
parent 321bdd95ff
commit 50a144ced8
2 changed files with 2 additions and 1 deletions

View File

@ -178,7 +178,7 @@ replyTo config _ _ CommInfoRequest{} replyHeader =
return
CommInfoReply
{ header = replyHeader
, commInfo = mempty }
, commInfo = Map.empty }
replyTo config _ interface ShutdownRequest { restartPending = pending } replyHeader = do
liftIO $ writeChan (shellReplyChannel interface) $ ShutdownReply replyHeader pending

View File

@ -299,6 +299,7 @@ data Message =
, implementation :: String -- ^ e.g. IHaskell
, implementationVersion :: String -- ^ The version of the implementation
, languageInfo :: LanguageInfo
}
|
-- | A request from a frontend for information about the comms.
CommInfoRequest { header :: MessageHeader }