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

compiles

This commit is contained in:
Dmitry Zuikov 2023-01-16 20:27:50 +03:00
parent 03a37a870d
commit edfcaabd0e
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

@ -194,7 +194,7 @@ runPeer :: forall e p bus . (
=> Peer e => Peer e
-> bus -> bus
-> [AnyProtocol e (EngineM e IO)] -> [AnyProtocol (Encoded e) (EngineM e IO)]
-> IO () -> IO ()
@ -203,7 +203,7 @@ runPeer peer pipe hh = do
resp <- forM hh $ \a@(AnyProtocol { myProtoId = pid }) -> do resp <- forM hh $ \a@(AnyProtocol { myProtoId = pid }) -> do
pure (pid, a) pure (pid, a)
let disp = Map.fromList resp :: Map Integer (AnyProtocol e (EngineM e IO)) let disp = Map.fromList resp :: Map Integer (AnyProtocol (Encoded e) (EngineM e IO))
let env = EngineEnv Nothing peer pipe let env = EngineEnv Nothing peer pipe