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 06:12:18 +03:00
parent f87146f831
commit 48bf25f8a6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -377,10 +377,11 @@ runTop forms = do
withState $ transactional do withState $ transactional do
for_ fxs $ \fme -> do for_ fxs $ \fme -> do
notice $ "fixme" <+> pretty (fixmeKey fme)
insertFixme fme
-- TODO: remove-code-duplucation
let fn = HM.lookup "file" (fixmeAttr fme) <&> Text.unpack . coerce let fn = HM.lookup "file" (fixmeAttr fme) <&> Text.unpack . coerce
fmeRich <- lift $ maybe1 fn (pure mempty) (flip getMetaDataFromGitBlame fme)
notice $ "fixme" <+> pretty (fixmeKey fme)
insertFixme (fmeRich <> fme)
-- TODO: remove-code-duplucation
for_ fn insertScanned for_ fn insertScanned
entry $ bindMatch "fixme:scan:list" $ nil_ $ const do entry $ bindMatch "fixme:scan:list" $ nil_ $ const do