wip

fixme-new/lib/Fixme/Run.hs

@@ -141,6 +141,7 @@ runFixmeCLI m = do
   --   не все действия требуют БД,
   --   хорошо бы, что бы она не создавалась,
   --   если не требуется
+  mkdir (takeDirectory dbPath)
   recover env do
     runReaderT ( setupLogger >> fromFixmeM (handle @_ @SomeException (err . viaShow) evolve >> m) ) env
                    `finally` flushLoggers
@@ -415,10 +416,6 @@ runTop forms = do
        entry $ bindMatch "fixme:refchan:export" $ nil_ \case
         _ -> none
 
-       entry $ bindMatch "git:import" $ nil_ $ const do
-        error "not implemented yet"
-        -- lift $ scanGitLocal mempty Nothing
-
        entry $ bindMatch "git:blobs" $  \_ -> do
         blobs <- lift (listBlobs Nothing)
 

fixme-new/lib/Fixme/Run/Internal.hs

@@ -270,10 +270,8 @@ import_ = do
                    || maybe False (`HS.member` commited) (HM.lookup f blobs)
 
         when add do
-          notice $ red "SCANNED" <+> pretty f
           insertScanned f
 
-
 cat_ :: FixmePerks m => Text -> FixmeM m ()
 cat_ hash = do