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 05:53:29 +03:00
parent 37065c62da
commit d76aef7eca
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Net/Proto/Types.hs
View File

@ -17,7 +17,7 @@ class (Hashable (Peer e), Eq (Peer e)) => HasPeer e where
data family (Peer e) :: Type data family (Peer e) :: Type
class MonadIO m => Response e p (m :: Type -> Type) | p -> e where class (MonadIO m, HasProtocol e p) => Response e p m | p -> e where
response :: p -> m () response :: p -> m ()
deferred :: Proxy p -> m () -> m () deferred :: Proxy p -> m () -> m ()

1
hbs2-tests/test/Main.hs
View File

@ -61,7 +61,6 @@ instance HasProtocol Fake (BlockSize Fake) where
blockSizeHandler :: forall e m s . ( MonadIO m blockSizeHandler :: forall e m s . ( MonadIO m
, Response e (BlockSize e) m , Response e (BlockSize e) m
, HasProtocol e (BlockSize e)
, s ~ SimpleStorage HbSync , s ~ SimpleStorage HbSync
) )
=> s => s