wip, report

This commit is contained in:
Dmitry Zuikov 2024-09-10 05:44:56 +03:00
parent 7c7cdb4ed6
commit f87146f831
1 changed files with 0 additions and 19 deletions

View File

@ -195,25 +195,6 @@ scanFiles = do
pure True pure True
-- tpl <- asks fixmeEnvTemplates >>= readTVarIO
-- <&> HM.lookup (fromMaybe "default" tpl)
-- fixmies <- selectFixmeThin a
-- case tpl of
-- Nothing-> do
-- liftIO $ LBS.putStr $ Aeson.encodePretty fixmies
-- Just (Simple (SimpleTemplate simple)) -> do
-- for_ fixmies $ \(FixmeThin attr) -> do
-- let subst = [ (mkId k, mkStr @C v) | (k,v) <- HM.toList attr ]
-- let what = render (SimpleTemplate (inject subst simple))
-- & fromRight "render error"
-- liftIO $ hPutDoc stdout what
report :: (FixmePerks m, HasPredicate q) => Maybe FilePath -> q -> FixmeM m () report :: (FixmePerks m, HasPredicate q) => Maybe FilePath -> q -> FixmeM m ()
report t q = do report t q = do