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-08-30 15:42:03 +03:00
parent 1ffdfbe716
commit 6aec32248a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -270,6 +270,12 @@ runTop forms = do
pure $ mkList elems pure $ mkList elems
-- TODO: implement-fixme:refchan:export
entry $ bindMatch "fixme:refchan:export" $ nil_ \case
_ -> none
-- TODO: implement-fixme:refchan:import
entry $ bindMatch "fixme:log:export" $ nil_ \case entry $ bindMatch "fixme:log:export" $ nil_ \case
[StringLike fn] -> do [StringLike fn] -> do
lift $ exportToLog fn lift $ exportToLog fn
@ -331,7 +337,7 @@ runTop forms = do
entry $ bindMatch "fixme:stage:clean" $ nil_ $ const do entry $ bindMatch "fixme:stage:clean" $ nil_ $ const do
lift cleanStage lift cleanStage
entry $ bindMatch "fixme:scan-git-local" $ nil_ $ const do entry $ bindMatch "git:import" $ nil_ $ const do
lift $ scanGitLocal mempty Nothing lift $ scanGitLocal mempty Nothing
entry $ bindMatch "git:blobs" $ \_ -> do entry $ bindMatch "git:blobs" $ \_ -> do