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