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-09-30 09:21:30 +03:00
parent 85cdc96077
commit d814768568
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hbs2-git-dashboard/hbs2-git-dashboard-core/HBS2/Git/DashBoard/Fixme.hs
View File

@ -22,6 +22,7 @@ module HBS2.Git.DashBoard.Fixme
, FixmeAttrVal(..)
, FixmeOpts(..)
, fixmePageSize
, fixmeGet
) where
import HBS2.Git.DashBoard.Prelude

13
hbs2-git-dashboard/hbs2-git-dashboard-core/HBS2/Git/Web/Html/Root.hs
View File

@ -969,11 +969,16 @@ repoFixme q@(FromParams p') lww = do
toHtml (H $ fixmeTitle fixme)
tr_ [class_ "commit-brief-details"] $ do
td_ [colspan_ "3"] do
mempty
let mco = fixmeGet "commit-time" fixme & pretty & show & readMay @Word64
let mw = fixmeGet "workflow" fixme <&> coerce @_ @Text
-- small_ do
-- for_ (fixmeTs fixme) $ \t0 -> do
-- toHtml ("updated " <> agePure (fromIntegral t0) now)
small_ do
for_ mw $ \w -> do
span_ [] (toHtml $ show $ brackets $ pretty w)
" "
for_ mco $ \co ->
span_ [] $ toHtml $ show $ brackets ("commited" <+> pretty (agePure co now))
unless (List.null fme) do
tr_ [ class_ "commit-brief-last"