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
321bdd95
Commit
321bdd95
authored
Oct 04, 2016
by
Libby Horacek
Committed by
Sumit Sahrawat
Oct 10, 2016
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use a Map instead of list of tuples for commInfo
It's a bit closer to a dictionary.
parent
8de1a9e0
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
3 additions
and
3 deletions
+3
-3
EasyKernel.hs
ipython-kernel/src/IHaskell/IPython/EasyKernel.hs
+1
-1
Types.hs
ipython-kernel/src/IHaskell/IPython/Types.hs
+1
-1
Main.hs
main/Main.hs
+1
-1
No files found.
ipython-kernel/src/IHaskell/IPython/EasyKernel.hs
View file @
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
=
[]
}
,
commInfo
=
mempty
}
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
...
...
ipython-kernel/src/IHaskell/IPython/Types.hs
View file @
321bdd95
...
@@ -306,7 +306,7 @@ data Message =
...
@@ -306,7 +306,7 @@ data Message =
-- | A response to a CommInfoRequest.
-- | A response to a CommInfoRequest.
CommInfoReply
CommInfoReply
{
header
::
MessageHeader
{
header
::
MessageHeader
,
commInfo
::
[(
String
,
String
)]
-- ^ A dictionary of the comms, indexed by uuids.
,
commInfo
::
Map
String
String
-- ^ A dictionary of the comms, indexed by uuids.
}
}
|
|
-- | A request from a frontend to execute some code.
-- | A request from a frontend to execute some code.
...
...
main/Main.hs
View file @
321bdd95
...
@@ -267,7 +267,7 @@ replyTo _ CommInfoRequest{} replyHeader state =
...
@@ -267,7 +267,7 @@ replyTo _ CommInfoRequest{} replyHeader state =
return
return
(
state
,
CommInfoReply
(
state
,
CommInfoReply
{
header
=
replyHeader
{
header
=
replyHeader
,
commInfo
=
[]
,
commInfo
=
mempty
})
})
-- Reply to a shutdown request by exiting the main thread. Before shutdown, reply to the request to
-- Reply to a shutdown request by exiting the main thread. Before shutdown, reply to the request to
...
...
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