fix

1 files changed, 3 insertions, 3 deletions

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