diff options
| -rw-r--r-- | Biz/Dragons.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index da5f3c5..f533865 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -305,7 +305,7 @@ instance Lucid.ToHtml AnalysisAction where Lucid.div_ [Lucid.id_ "analysis"] <| do let Analysis {..} = analysis Lucid.p_ [Lucid.class_ "analysisFor"] <| do - "Analysis for " <> Lucid.toHtml gitDir + "Analysis for " <> Lucid.toHtml url score_ <| do title_ "Total Score" |