/
Extras.hs
55 lines (49 loc) · 2.09 KB
/
Extras.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
module Cardano.Api.IPC.Extras where
-- import Cardano.Api
-- import Control.Tracer (nullTracer)
-- import Ouroboros.Network.NodeToClient qualified as N2C
-- import Ouroboros.Network.NodeToNode qualified as N2N
-- import Ouroboros.Network.Snocket (socketSnocket)
-- import Ouroboros.Network.Socket (nullNetworkConnectTracers)
-- connectToLocalNode' :: LocalNodeConnectInfo mode
-- -> LocalNodeClientProtocolsInMode mode
-- -> IO ()
-- connectToLocalNode' localNodeConnectInfo handlers
-- = connectToLocalNodeWithVersion' localNodeConnectInfo (const handlers)
-- -- | Establish a connection to a local node and execute the given set of
-- -- protocol handlers parameterized on the negotiated node-to-client protocol
-- -- version.
-- --
-- connectToLocalNodeWithVersion' :: LocalNodeConnectInfo mode
-- -> (NodeToClientVersion -> LocalNodeClientProtocolsInMode mode)
-- -> IO ()
-- connectToLocalNodeWithVersion' LocalNodeConnectInfo {
-- localNodeSocketPath,
-- localNodeNetworkId,
-- localConsensusModeParams
-- } clients =
-- N2C.withIOManager $ \iomgr ->
-- N2C.connectTo
-- (N2C.localSnocket iomgr)
-- N2C.NetworkConnectTracers {
-- N2C.nctMuxTracer = nullTracer,
-- N2C.nctHandshakeTracer = nullTracer
-- }
-- versionedProtocls
-- localNodeSocketPath
-- where
-- versionedProtocls =
-- -- First convert from the mode-parametrised view of things to the
-- -- block-parametrised view and then do the final setup for the versioned
-- -- bundles of mini-protocols.
-- undefined
-- -- case mkLocalNodeClientParams localConsensusModeParams clients of
-- -- LocalNodeClientParams ptcl clients' ->
-- -- mkVersionedProtocols localNodeNetworkId ptcl clients'
-- connect ioManager =
-- N2N.connectTo
-- (socketSnocket ioManager)
-- N2N.nullNetworkConnectTracers
-- _versions
-- _maybeSockAddr
-- _sockAddr