From 234767de67a46bc6063357ce6aa6f9c898255740 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 12 Jun 2024 09:02:56 +0300
Subject: [PATCH] wip

---
 fixme-new/lib/Fixme/Run.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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