From 6d7616c426fa597e558b8a8f11862d5323286da7 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 15 Oct 2023 13:27:41 +0300
Subject: [PATCH] debug-2

---
 hbs2-git/reposync/ReposyncMain.hs | 4 ++++
 1 file changed, 4 insertions(+)

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