diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs index 5eac98b2..591f0fcb 100644 --- a/fixme-new/lib/Fixme/Run.hs +++ b/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) diff --git a/fixme-new/lib/Fixme/Run/Internal.hs b/fixme-new/lib/Fixme/Run/Internal.hs index f1ee0450..febfa373 100644 --- a/fixme-new/lib/Fixme/Run/Internal.hs +++ b/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