From 5397cd352b667a059886439473c46c6e40240df3 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 15 Oct 2023 13:14:44 +0300 Subject: [PATCH] debug --- hbs2-git/reposync/ReposyncMain.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hbs2-git/reposync/ReposyncMain.hs b/hbs2-git/reposync/ReposyncMain.hs index 17805438..afc105cb 100644 --- a/hbs2-git/reposync/ReposyncMain.hs +++ b/hbs2-git/reposync/ReposyncMain.hs @@ -143,6 +143,8 @@ withConfig cfg m = do syn <- liftIO (readFile realCfg) <&> parseTop <&> fromRight mempty + debug $ "config" <+> pretty realCfg <> line <> pretty syn + ev <- asks (view reposyncEntries) let root = runReader (cfgValue @ReposyncRootKey) syn