diff --git a/hbs2-core/lib/HBS2/Net/Proto.hs b/hbs2-core/lib/HBS2/Net/Proto.hs
index 4cee7cd3..66a6e463 100644
--- a/hbs2-core/lib/HBS2/Net/Proto.hs
+++ b/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)
 
diff --git a/hbs2-core/lib/HBS2/Prelude.hs b/hbs2-core/lib/HBS2/Prelude.hs
index a5323992..736ef084 100644
--- a/hbs2-core/lib/HBS2/Prelude.hs
+++ b/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 ()
+