From a1e09a0b7077173789393b5cf86ef409dfe7fb28 Mon Sep 17 00:00:00 2001
From: cyfraeviolae <cyfraeviolae>
Date: Fri, 16 May 2025 16:13:05 -0400
Subject: fix

---
 src/Lib.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Lib.hs')

diff --git a/src/Lib.hs b/src/Lib.hs
index 67e6579..3cf2671 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -374,7 +374,7 @@ instance ToHtml HomeView where
                 span_ $ toHtml label <> ". "
                 if disabled
                   then span_ "Coming soon."
-                  else span_ $ toHtmlRaw description
+                  else span_ $ em_ $ toHtmlRaw description
           br_ []
           div_ $ do
             legend_ "Periods"
@@ -405,12 +405,12 @@ instance ToHtml HomeView where
               input_ [type_ "radio", name_ "l", value_ "Short", id_ "Short", checked_]
               label_ [for_ "Short"] $ do
                 span_ $ "Short "
-                span_ "(6 works, less than 11 questions)"
+                span_ "(6 works, fewer than 11 questions)"
             div_ $ do
               input_ [type_ "radio", name_ "l", value_ "Long", id_ "Long"]
               label_ [for_ "Long"] $ do
                 span_ $ "Long "
-                span_ "(10 works, less than 25 questions)"
+                span_ "(10 works, fewer than 25 questions)"
           br_ []
           button_ [type_ "submit"] "Start"
   toHtmlRaw = toHtml
-- 
cgit v1.2.3