wip

hbs2-keyman/app/Main.hs

@@ -10,7 +10,7 @@ import HBS2.Net.Auth.Credentials
 import HBS2.Data.KeyRing qualified as KeyRing
 
 import HBS2.System.Dir
-import HBS2.System.Logger.Simple
+
 
 import Data.Config.Suckless.KeyValue
 import Data.Config.Suckless
@@ -118,7 +118,8 @@ updateKeys = do
 
     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)

hbs2-keyman/src/HBS2/KeyMan/App/Types.hs

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

hbs2-keyman/src/HBS2/KeyMan/Prelude.hs

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