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

wip

This commit is contained in:
Dmitry Zuikov 2024-06-12 09:02:56 +03:00
parent ae1152bb54
commit 234767de67
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fixme-new/lib/Fixme/Run.hs
View File

@ -126,7 +126,11 @@ runFixmeCLI m = do
<*> newTVarIO mempty <*> newTVarIO mempty
<*> newTVarIO (1,3) <*> newTVarIO (1,3)
runReaderT ( setupLogger >> fromFixmeM (evolve >> m) ) env -- FIXME: defer-evolve
-- не все действия требуют БД,
-- хорошо бы, что бы она не создавалась,
-- если не требуется
runReaderT ( setupLogger >> fromFixmeM (handle @_ @SomeException (err . viaShow) evolve >> m) ) env
`finally` flushLoggers `finally` flushLoggers
where where
setupLogger = do setupLogger = do
@ -168,6 +172,7 @@ readConfig = do
init :: FixmePerks m => FixmeM m () init :: FixmePerks m => FixmeM m ()
init = do init = do
lo <- localConfigDir lo <- localConfigDir
let lo0 = takeFileName lo let lo0 = takeFileName lo