Skip to content
Permalink
Browse files

DaedalusIPC: Remove Ping/Pong messages

  • Loading branch information...
rvl committed Jun 12, 2019
1 parent 2960fde commit 4b1d08d6fb3b7af0d3f5c8b20e56ca54da9f44e2
Showing with 2 additions and 3 deletions.
  1. +2 −3 lib/core/src/Cardano/Wallet/DaedalusIPC.hs
@@ -77,9 +77,9 @@ import qualified Data.Text as T
----------------------------------------------------------------------------
-- Daedalus <-> Wallet child process port discovery protocol

data MsgIn = QueryPort | Ping
data MsgIn = QueryPort
deriving (Show, Eq, Generic)
data MsgOut = Started | Pong | ReplyPort Int | ParseError Text
data MsgOut = Started | ReplyPort Int | ParseError Text
deriving (Show, Eq, Generic)

aesonOpts :: Options
@@ -104,7 +104,6 @@ daedalusIPC port = withNodeChannel (pure . msg) action >>= \case
-- How to respond to an incoming message, or when there is an incoming
-- message that couldn't be parsed.
msg (Right QueryPort) = Just (ReplyPort port)
msg (Right Ping) = Just Pong
msg (Left e) = Just (ParseError e)

-- What to do in context of withNodeChannel

0 comments on commit 4b1d08d

Please sign in to comment.
You can’t perform that action at this time.