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-09-10 10:19:19 +03:00
parent 2bfe760a71
commit 2f175f3cea
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

2
fixme-new/lib/Fixme/Run/Internal.hs
View File

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