remove unused attribute, commented out code

This commit is contained in:
towards-a-new-leftypol 2024-02-14 12:12:12 -05:00
parent f4dda79c05
commit a8594e31f7
1 changed files with 0 additions and 5 deletions

View File

@ -47,21 +47,16 @@ intro site board thread post current_time = span_
, " "
, time_
[ textProp "datetime" $ toMisoString $ show $ creation_time
, textProp "data-local" "true"
, title_ $ toMisoString $ timeAgo current_time creation_time
][ text $ formatUTC creation_time ]
, " "
, a_
[ class_ "post_no"
-- , href_ $ toMisoString $ "#" ++ b_post_id
, href_ $ toMisoString $ post_url <> "#" <> b_post_id
--, href_ "/leftypol/res/477700.html#477700"
][ "No." ]
, a_
[ class_ "post_no"
-- , href_ $ toMisoString $ "#q" ++ b_post_id
, href_ $ toMisoString $ post_url <> "#q" <> b_post_id
--, href_ "/leftypol/res/477700.html#q477700"
][ text $ toMisoString $ b_post_id ]
]
)