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-05-13 10:25:04 +03:00
parent 9cde6cb7d5
commit 09e0d507c1
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.fixme-new/config
View File

@ -7,7 +7,7 @@
fixme-prefix FIXME: fixme-prefix FIXME:
fixme-prefix TODO: fixme-prefix TODO:
fixme-git-scan-filter-days 1 fixme-git-scan-filter-days 30
fixme-attribs assigned workflow fixme-attribs assigned workflow
@ -19,10 +19,9 @@ fixme-value-set cat bug feat refactor
fixme-value-set scope mvp-0 mvp-1 backlog fixme-value-set scope mvp-0 mvp-1 backlog
fixme-files **/*.txt docs/devlog.md
;fixme-files **/*.txt docs/devlog.md fixme-files **/*.hs
; fixme-files **/*.hs ; fixme-files **/Run.hs
fixme-files **/Run.hs
fixme-file-comments "*.scm" ";" fixme-file-comments "*.scm" ";"

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

@ -421,7 +421,9 @@ scanGitLocal args p = do
Nothing -> pure fx Nothing -> pure fx
Just (a,b,c) -> do Just (a,b,c) -> do
let ks = [qc|{show (pretty a)}#{show (pretty b)}:{show c}|] :: Text let ks = [qc|{show (pretty a)}#{show (pretty b)}:{show c}|] :: Text
let kv = HM.singleton "fixme-key" (FixmeAttrVal ks) let ksh = hashObject @HbSync (serialise ks) & pretty & show & Text.pack & FixmeAttrVal
let kh = HM.singleton "fixme-key" ksh
let kv = HM.singleton "fixme-key-string" (FixmeAttrVal ks) <> kh
pure $ over (field @"fixmeAttr") (<> kv) fx pure $ over (field @"fixmeAttr") (<> kv) fx
when ( PrintFixme `elem` args ) do when ( PrintFixme `elem` args ) do