From 6021c70aefd48b5590c82b2839a606231297988d Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 18 Jan 2023 06:22:54 +0300 Subject: [PATCH] wip --- hbs2-tests/test/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-tests/test/Main.hs b/hbs2-tests/test/Main.hs index 9517526b..30ed1774 100644 --- a/hbs2-tests/test/Main.hs +++ b/hbs2-tests/test/Main.hs @@ -67,8 +67,8 @@ dontHandle :: Applicative f => a -> f () dontHandle = const $ pure () blockSizeProto :: forall e m . ( MonadIO m - , Response e (BlockSize e) m - ) + , Response e (BlockSize e) m + ) => GetBlockSize HbSync m -> HasBlockEvent HbSync e m -> BlockSize e