mirror of https://github.com/voidlizard/hbs2
ResponseM monad
This commit is contained in:
parent
6e67d1d0ae
commit
ac39a3f51d
|
@ -77,8 +77,6 @@ blockSizeProto :: forall e m . ( MonadIO m
|
|||
blockSizeProto getBlockSize evHasBlock =
|
||||
\case
|
||||
GetBlockSize h -> do
|
||||
debug $ "GetBlockSize" <+> pretty h
|
||||
|
||||
-- TODO: STORAGE: seek for block
|
||||
-- TODO: defer answer (?)
|
||||
-- TODO: does it really work?
|
||||
|
|
Loading…
Reference in New Issue