Merge pull request #637 from nicluo/master

Fix #632: Show "Current Kernel Information" in Jupyter Notebook About

ipython-kernel/src/IHaskell/IPython/Message/Writer.hs

@@ -25,7 +25,8 @@ instance ToJSON LanguageInfo where
 instance ToJSON Message where
   toJSON rep@KernelInfoReply{} =
     object
-      [ "protocol_version" .= string "5.0"  -- current protocol version, major and minor
+      [ "protocol_version" .= protocolVersion rep
+      , "banner" .= banner rep
       , "implementation" .= implementation rep
       , "implementation_version" .= implementationVersion rep
       , "language_info" .= languageInfo rep

ipython-kernel/src/IHaskell/IPython/Types.hs

@@ -287,6 +287,8 @@ data Message =
              -- | A response to a KernelInfoRequest.
                KernelInfoReply
                  { header :: MessageHeader
+                 , protocolVersion :: String -- ^ current protocol version, major and minor
+                 , banner :: String -- ^ Kernel information description e.g. (IHaskell 0.8.3.0 GHC 7.10.2)
                  , implementation :: String -- ^ e.g. IHaskell
                  , implementationVersion :: String -- ^ The version of the implementation
                  , languageInfo :: LanguageInfo

main/Main.hs

@@ -239,6 +239,8 @@ replyTo _ KernelInfoRequest{} replyHeader state =
   return
     (state, KernelInfoReply
               { header = replyHeader
+              , protocolVersion = "5.0"
+              , banner = "IHaskell " ++ VERSION_ipython_kernel ++ " GHC " ++ VERSION_ghc
               , implementation = "IHaskell"
               , implementationVersion = VERSION_ipython_kernel
               , languageInfo = LanguageInfo