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

wip

This commit is contained in:
Dmitry Zuikov 2024-08-22 14:45:55 +03:00
parent bf41810df5
commit ed9add84d7
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-keyman/app/Main.hs
View File

@ -10,7 +10,7 @@ import HBS2.Net.Auth.Credentials
import HBS2.Data.KeyRing qualified as KeyRing import HBS2.Data.KeyRing qualified as KeyRing
import HBS2.System.Dir import HBS2.System.Dir
import HBS2.System.Logger.Simple
import Data.Config.Suckless.KeyValue import Data.Config.Suckless.KeyValue
import Data.Config.Suckless import Data.Config.Suckless
@ -118,7 +118,8 @@ updateKeys = do
let rchans = [ r | ListVal [SymbolVal "refchan", SignPubKeyLike r] <- conf ] let rchans = [ r | ListVal [SymbolVal "refchan", SignPubKeyLike r] <- conf ]
pure () for_ rchans $ \rchan -> do
notice $ yellow "scanning refchan" <+> pretty (AsBase58 rchan)
setWeightCmd :: (AppPerks m) => Parser (Command m) setWeightCmd :: (AppPerks m) => Parser (Command m)

3
hbs2-keyman/src/HBS2/KeyMan/App/Types.hs
View File

@ -17,8 +17,7 @@ import HBS2.Base58
import HBS2.Net.Auth.Credentials() import HBS2.Net.Auth.Credentials()
import HBS2.Net.Proto.Types import HBS2.Net.Proto.Types
import HBS2.System.Logger.Simple.ANSI
import HBS2.System.Logger.Simple
import Data.Config.Suckless import Data.Config.Suckless
import DBPipe.SQLite import DBPipe.SQLite

4
hbs2-keyman/src/HBS2/KeyMan/Prelude.hs
View File

@ -1,8 +1,10 @@
module HBS2.KeyMan.Prelude module HBS2.KeyMan.Prelude
( module HBS2.Prelude.Plated ( module HBS2.Prelude.Plated
, module Exported
) where ) where
import HBS2.Prelude.Plated import HBS2.Prelude.Plated
import HBS2.Misc.PrettyStuff as Exported
import HBS2.System.Logger.Simple.ANSI as Exported