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

RunExport: reduced noise in terminal

This commit is contained in:
Dmitry Zuikov 2023-03-26 16:47:51 +03:00
parent 77f9910b44
commit 596d2d3dbb
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hbs2-git/lib/HBS2Git/App.hs
View File

@ -47,12 +47,11 @@ import Codec.Serialise
import Data.HashMap.Strict qualified as HashMap import Data.HashMap.Strict qualified as HashMap
import Data.List qualified as List import Data.List qualified as List
import Data.Text qualified as Text import Data.Text qualified as Text
import System.IO ( stderr )
import Data.IORef import Data.IORef
import System.IO.Unsafe (unsafePerformIO) import System.IO.Unsafe (unsafePerformIO)
import Data.Cache (Cache)
import Data.Cache qualified as Cache import Data.Cache qualified as Cache
import Control.Concurrent.Async import Control.Concurrent.Async
import System.Environment
instance MonadIO m => HasCfgKey ConfBranch (Set String) m where instance MonadIO m => HasCfgKey ConfBranch (Set String) m where
key = "branch" key = "branch"
@ -173,12 +172,19 @@ runApp l m = do
case l of case l of
NoLog -> pure () NoLog -> pure ()
WithLog -> do WithLog -> do
setLogging @DEBUG debugPrefix
setLogging @ERROR errorPrefix setLogging @ERROR errorPrefix
setLogging @NOTICE noticePrefix setLogging @NOTICE noticePrefix
setLogging @TRACE tracePrefix
setLogging @INFO infoPrefix setLogging @INFO infoPrefix
doTrace <- liftIO $ lookupEnv "HBS2TRACE" <&> isJust
if doTrace then do
setLogging @DEBUG debugPrefix
setLogging @TRACE tracePrefix
else do
setLoggingOff @DEBUG
setLoggingOff @TRACE
(pwd, syn) <- Config.configInit (pwd, syn) <- Config.configInit
xdgstate <- getAppStateDir xdgstate <- getAppStateDir

5
hbs2-git/lib/HBS2Git/Export.hs
View File

@ -7,13 +7,8 @@ import HBS2.Data.Types.Refs
import HBS2.OrDie import HBS2.OrDie
import HBS2.System.Logger.Simple import HBS2.System.Logger.Simple
import HBS2.Merkle import HBS2.Merkle
import HBS2.Hash
import HBS2.Net.Proto.Definition() import HBS2.Net.Proto.Definition()
import HBS2.Net.Auth.Credentials hiding (getCredentials)
import HBS2.Base58 import HBS2.Base58
-- FIXME: UDP-name-is-irrelevant
import HBS2.Net.Messaging.UDP (UDP)
import HBS2.Git.Local import HBS2.Git.Local
import HBS2.Git.Local.CLI import HBS2.Git.Local.CLI