diff --git a/.fixme-new/config b/.fixme-new/config index 55e9b3cd..1dc64821 100644 --- a/.fixme-new/config +++ b/.fixme-new/config @@ -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" ";" diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs index 1cc57e74..8295274d 100644 --- a/fixme-new/lib/Fixme/Run.hs +++ b/fixme-new/lib/Fixme/Run.hs @@ -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