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-18 06:22:54 +03:00
parent 85ad732cfc
commit 6021c70aef
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-tests/test/Main.hs
View File

@ -67,8 +67,8 @@ dontHandle :: Applicative f => a -> f ()
dontHandle = const $ pure () dontHandle = const $ pure ()
blockSizeProto :: forall e m . ( MonadIO m blockSizeProto :: forall e m . ( MonadIO m
, Response e (BlockSize e) m , Response e (BlockSize e) m
) )
=> GetBlockSize HbSync m => GetBlockSize HbSync m
-> HasBlockEvent HbSync e m -> HasBlockEvent HbSync e m
-> BlockSize e -> BlockSize e