css

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index 48f30a9..32cbb3f 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -397,7 +397,7 @@ instance ToHtml PlayView where
                     p_ . toHtmlRaw $ feedback level misses
                     p_ $ em_ $ do
                         a_ [href_ (playURI mediumTags periods level Nothing)] "Retry"
-                        span_ ", or "
+                        span_ " or "
                         a_ [href_ homeURI] "choose different folios and periods"
                         span_ "."
                 div_ [class_ "row"] $ table_ $ do
@@ -439,14 +439,14 @@ pageTemplate crumbs body = doctypehtml_ $ do
       div_ [class_ "row navbar"] $
         sequence_ $
           L.intersperse
-            (span_ [] (toHtmlRaw (T.pack " / ")))
+            (span_ [class_ "sep"] (toHtmlRaw (T.pack " | ")))
             (crumb : crumbs)
       body
     where
-        crumb = do
+        crumb = span_ [class_ "ico"] $ do
             a_ [href_ homeURI, class_ "title"] (strong_ "Antiquitysort")
             span_ "@"
-            a_ [href_ "https://cyfraeviolae.org", class_ "title"] "cyfraeviolae"
+            a_ [href_ "https://cyfraeviolae.org"] "cyfraeviolae.org"
 
 tshow :: Show a => a -> T.Text
 tshow = T.pack . show