voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

dontHandle to Prelude

This commit is contained in:
voidlizard 2024-10-25 18:04:47 +03:00
parent 3fb0be2692
commit e6770fee70
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,9 +6,5 @@ module HBS2.Net.Proto
import HBS2.Hash import HBS2.Hash
import HBS2.Net.Proto.Types import HBS2.Net.Proto.Types
dontHandle :: Applicative f => a -> f ()
dontHandle = const $ pure ()
type GetBlockSize h m = Hash h -> m (Maybe Integer) type GetBlockSize h m = Hash h -> m (Maybe Integer)

5
hbs2-core/lib/HBS2/Prelude.hs
View File

@ -33,6 +33,7 @@ module HBS2.Prelude
, AnyProbe(..) , AnyProbe(..)
, newSimpleProbe , newSimpleProbe
, whenTrue, whenFalse , whenTrue, whenFalse
, dontHandle
) where ) where
import HBS2.Clock import HBS2.Clock
@ -250,3 +251,7 @@ instance Probe SimpleProbe where
writeTVar spTimestamp t writeTVar spTimestamp t
modifyTVar spProbeValues (<> HM.fromList values) modifyTVar spProbeValues (<> HM.fromList values)
dontHandle :: Applicative f => a -> f ()
dontHandle = const $ pure ()