From be67ff026e27dcb3c2fb0d902e3bf055ef020186 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 15 Oct 2023 13:09:08 +0300
Subject: [PATCH] debug

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

diff --git a/hbs2-git/reposync/ReposyncMain.hs b/hbs2-git/reposync/ReposyncMain.hs
index fdd24054..17805438 100644
--- a/hbs2-git/reposync/ReposyncMain.hs
+++ b/hbs2-git/reposync/ReposyncMain.hs
@@ -136,6 +136,7 @@ withConfig cfg m = do
                 liftIO do
                   let conf = defConfDir </> "config"
                   createDirectoryIfMissing True defConfDir
+                  debug $ "config-dir" <+> pretty defConfDir
                   appendFile conf ""
                   pure conf