here's -> here are the results

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