From dfef7d4935db416f450d576587b938451ee10926 Mon Sep 17 00:00:00 2001
From: Jack Wines <jack@winesj.com>
Date: Sat, 24 Jun 2023 21:40:55 -0700
Subject: [PATCH] here's -> here are the results

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index f4bd0cd..59a2403 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -109,7 +109,7 @@ vote pollId ballot = do
   db <- Rd.asks db
   liftIO $ Ac.update db (DB.PostBallot pollId ballot')
   pure $ with div_ [id_ "resultLink"] $ do
-    "success! Here's the "
+    "success! Here are the "
     with a_ [href_ (toPollIdLink pollId `T.append` "/results")] "results"
   where
     ballot' = B.Ballot . filter (not . T.null) . B.options $ ballot