From edfcaabd0e331bcc132a828e706e12cb36c59eb1 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 16 Jan 2023 20:27:50 +0300 Subject: [PATCH] compiles --- hbs2-core/test/TestUniqProtoId.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-core/test/TestUniqProtoId.hs b/hbs2-core/test/TestUniqProtoId.hs index 7164f45b..53eacd90 100644 --- a/hbs2-core/test/TestUniqProtoId.hs +++ b/hbs2-core/test/TestUniqProtoId.hs @@ -194,7 +194,7 @@ runPeer :: forall e p bus . ( => Peer e -> bus - -> [AnyProtocol e (EngineM e IO)] + -> [AnyProtocol (Encoded e) (EngineM e IO)] -> IO () @@ -203,7 +203,7 @@ runPeer peer pipe hh = do resp <- forM hh $ \a@(AnyProtocol { myProtoId = pid }) -> do 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