dontHandle to Prelude

hbs2-core/lib/HBS2/Net/Proto.hs

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

hbs2-core/lib/HBS2/Prelude.hs

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