mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
85ad732cfc
commit
6021c70aef
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue