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