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 TODO:
fixme-git-scan-filter-days 1
fixme-git-scan-filter-days 30
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-files **/*.txt docs/devlog.md
; fixme-files **/*.hs
fixme-files **/Run.hs
fixme-files **/*.txt docs/devlog.md
fixme-files **/*.hs
; fixme-files **/Run.hs
fixme-file-comments "*.scm" ";"

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

@ -421,7 +421,9 @@ scanGitLocal args p = do
Nothing -> pure fx
Just (a,b,c) -> do
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
when ( PrintFixme `elem` args ) do