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

debug-2

This commit is contained in:
Dmitry Zuikov 2023-10-15 13:27:41 +03:00
parent 5397cd352b
commit 6d7616c426
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git/reposync/ReposyncMain.hs
View File

@ -127,6 +127,8 @@ newState so refLog =
withConfig :: forall a m . (MonadUnliftIO m) => Maybe FilePath -> ReposyncM m a -> ReposyncM m () withConfig :: forall a m . (MonadUnliftIO m) => Maybe FilePath -> ReposyncM m a -> ReposyncM m ()
withConfig cfg m = do withConfig cfg m = do
debug $ "wtf?"
let defDir = reposyncDefaultDir let defDir = reposyncDefaultDir
defConfDir <- liftIO $ getXdgDirectory XdgConfig myName defConfDir <- liftIO $ getXdgDirectory XdgConfig myName
@ -373,6 +375,8 @@ withApp cfg m = do
waitAnyCatchCancel [c1, messaging, r] waitAnyCatchCancel [c1, messaging, r]
notice "exiting"
setLoggingOff @DEBUG setLoggingOff @DEBUG
setLoggingOff @INFO setLoggingOff @INFO
setLoggingOff @ERROR setLoggingOff @ERROR