devlog+fixme+minor-change

.fixme/log

@@ -204,4 +204,6 @@ fixme-set "assigned" "voidlizard" "BZjzN7BjQ4"
 fixme-set "assigned" "ivanovs" "4ZMqvoTMY3"
 fixme-set "assigned" "voidlizard" "AR3Ppzm1E2"
 fixme-set "workflow" "test" "AR3Ppzm1E2"
-fixme-set "workflow" "test" "BZjzN7BjQ4"
+fixme-set "workflow" "test" "BZjzN7BjQ4"
+fixme-set "workflow" "wip" "6spiDvVE3q"
+fixme-set "assigned" "voidlizard" "6spiDvVE3q"

hbs2-core/lib/HBS2/Prelude.hs

@@ -9,6 +9,7 @@ module HBS2.Prelude
   , AsFileName(..)
   -- , Pretty
   , FromStringMaybe(..)
+  , none
   , module Prettyprinter
   ) where
 
@@ -25,6 +26,9 @@ import Data.Hashable
 import Prettyprinter
 import Data.Word
 
+none :: forall m . Monad m => m ()
+none = pure ()
+
 maybe1 :: Maybe a -> b -> (a -> b) -> b
 maybe1 mb n j = maybe n j mb
 

hbs2-peer/app/BlockDownload.hs

@@ -49,10 +49,6 @@ import System.Random.Shuffle
 import Type.Reflection
 
 
-none :: forall m . Monad m => m ()
-none = pure ()
-
-
 getBlockForDownload :: MonadIO m => BlockDownloadM e m (Hash HbSync)
 getBlockForDownload = do
   q <- asks (view downloadQ)