diff options
| -rw-r--r-- | Biz/Dragons.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index f533865..d370693 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -1230,6 +1230,10 @@ instance Lucid.ToHtml Home where p "Just hook it up to your CI system - Dragons.dev warns you when it finds a problem." Lucid.toHtml <| tryButton oAuthArgs "Give it a try with GitHub" mempty section <| do + h2 "Slay your codebase dragons 🐉" + p "No more _`//here be dragons`_. Identify tech debt before it becomes a problem." + Lucid.toHtml demoButton + section <| do h2 "Identify blackholes in your codebase" p "What if none of your active employees have touched some part of the codebase? \ @@ -1427,6 +1431,15 @@ encodeParams = <. LBS.toStrict <. Web.urlEncodeParams +demoButton :: Lucid.Html () +demoButton = + Lucid.a_ + [ Lucid.id_ "try-button", + Lucid.href_ + "https://calendly.com/bsima/15minutedragonsdemo" + ] + <| Lucid.toHtml ("Schedule a 15 minute demo" :: Text) + -- | Login button for GitHub. tryButton :: Auth.GitHub -> Text -> Text -> Lucid.Html () tryButton oAuthArgs title subtitle = |