Skip to content

Commit

Permalink
Avoid -Wname-shadowing with Text.Blaze.Html5.s
Browse files Browse the repository at this point in the history
Rename s locally rather than use CPP with import
  • Loading branch information
philderbeast authored and tomjaguarpaw committed May 31, 2024
1 parent 3bddf3d commit c9e7372
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/Stan/Report/Html.hs
Original file line number Diff line number Diff line change
Expand Up @@ -376,9 +376,9 @@ stanSeverityExplained = do
traverse_ toSeverityRow (universe @Severity)
where
toSeverityRow :: Severity -> Html
toSeverityRow s = tr $ do
td (severity $ show s)
td (toHtml $ severityDescription s)
toSeverityRow sv = tr $ do
td (severity $ show sv)
td (toHtml $ severityDescription sv)

stanFooter :: Html
stanFooter = footer $ do
Expand Down

0 comments on commit c9e7372

Please sign in to comment.