Skip to content

G
gargantext-ihaskell
Commit ceb3abdd authored by Sumit Sahrawat's avatar Sumit Sahrawat
Browse files
Options

Fix kernel death error

parent 48c3c1f6
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
ipython-kernel/src/IHaskell/IPython/Message/Parser.hs
View file @ ceb3abdd
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- the low-level 0MQ interface. -- the low-level 0MQ interface.
module IHaskell.IPython.Message.Parser (parseMessage) where module IHaskell.IPython.Message.Parser (parseMessage) where
import Data.Aeson ((.:), decode, Result(..), Object) import Data.Aeson ((.:), (.:?), (.!=), decode, Result(..), Object)
import Control.Applicative ((<|>), (<$>), (<*>)) import Control.Applicative ((<|>), (<$>), (<*>))
import Data.Aeson.Types (parse) import Data.Aeson.Types (parse)
import Data.ByteString import Data.ByteString
...@@ -160,7 +160,7 @@ commOpenParser :: LByteString -> Message ...@@ -160,7 +160,7 @@ commOpenParser :: LByteString -> Message
commOpenParser = requestParser $ \obj -> do commOpenParser = requestParser $ \obj -> do
uuid <- obj .: "comm_id" uuid <- obj .: "comm_id"
targetName <- obj .: "target_name" targetName <- obj .: "target_name"
targetModule <- obj .: "target_module" targetModule <- obj .:? "target_module" .!= ""
value <- obj .: "data" value <- obj .: "data"
return $ CommOpen noHeader targetName targetModule uuid value return $ CommOpen noHeader targetName targetModule uuid value
......
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