mirror of https://github.com/voidlizard/hbs2
wip, report
This commit is contained in:
parent
7c7cdb4ed6
commit
f87146f831
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue