Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
gargantext-ihaskell
Commits
ceb3abdd
Commit
ceb3abdd
authored
Sep 02, 2015
by
Sumit Sahrawat
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix kernel death error
parent
48c3c1f6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
Parser.hs
ipython-kernel/src/IHaskell/IPython/Message/Parser.hs
+2
-2
No files found.
ipython-kernel/src/IHaskell/IPython/Message/Parser.hs
View file @
ceb3abdd
...
...
@@ -7,7 +7,7 @@
-- the low-level 0MQ interface.
module
IHaskell.IPython.Message.Parser
(
parseMessage
)
where
import
Data.Aeson
((
.:
),
decode
,
Result
(
..
),
Object
)
import
Data.Aeson
((
.:
),
(
.:?
),
(
.!=
),
decode
,
Result
(
..
),
Object
)
import
Control.Applicative
((
<|>
),
(
<$>
),
(
<*>
))
import
Data.Aeson.Types
(
parse
)
import
Data.ByteString
...
...
@@ -160,7 +160,7 @@ commOpenParser :: LByteString -> Message
commOpenParser
=
requestParser
$
\
obj
->
do
uuid
<-
obj
.:
"comm_id"
targetName
<-
obj
.:
"target_name"
targetModule
<-
obj
.:
"target_module
"
targetModule
<-
obj
.:
?
"target_module"
.!=
"
"
value
<-
obj
.:
"data"
return
$
CommOpen
noHeader
targetName
targetModule
uuid
value
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment