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

debug

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

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

@ -143,6 +143,8 @@ withConfig cfg m = do
syn <- liftIO (readFile realCfg) <&> parseTop syn <- liftIO (readFile realCfg) <&> parseTop
<&> fromRight mempty <&> fromRight mempty
debug $ "config" <+> pretty realCfg <> line <> pretty syn
ev <- asks (view reposyncEntries) ev <- asks (view reposyncEntries)
let root = runReader (cfgValue @ReposyncRootKey) syn let root = runReader (cfgValue @ReposyncRootKey) syn