voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2023-01-16 18:09:10 +03:00
parent 450e96083f
commit d0be013688
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-core/test/TestUniqProtoId.hs
View File

@ -196,8 +196,8 @@ testUniqiProtoId = do
let env = EngineEnv @Fake Nothing (FakePeer 0) fake let env = EngineEnv @Fake Nothing (FakePeer 0) fake
let resp = [ (1, makeResponse pingPongHandler) let resp = [ (protoId @Fake (Proxy @PingPong), makeResponse pingPongHandler)
, (2, makeResponse peekPokeHandler) , (protoId @Fake (Proxy @PeekPoke), makeResponse peekPokeHandler)
] ]
let decoders = Map.fromList resp :: Map Integer (AnyProtocol (Encoded Fake) (EngineM Fake IO)) let decoders = Map.fromList resp :: Map Integer (AnyProtocol (Encoded Fake) (EngineM Fake IO))