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

devlog+fixme+minor-change

This commit is contained in:
Dmitry Zuikov 2023-02-24 09:54:22 +03:00
parent 32bf941d53
commit 962afec828
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.fixme/log
View File

@ -205,3 +205,5 @@ fixme-set "assigned" "ivanovs" "4ZMqvoTMY3"
fixme-set "assigned" "voidlizard" "AR3Ppzm1E2" fixme-set "assigned" "voidlizard" "AR3Ppzm1E2"
fixme-set "workflow" "test" "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"

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

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

4
hbs2-peer/app/BlockDownload.hs
View File

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