From 97ae04ec378c395598d00ddc279da7a495278ae1 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 9 Aug 2019 10:36:34 +1200
Subject: [PATCH] Upgrade Stylist dependency, fix default table styles.

I forgot that the content property replaces all children.
---
 rhapsode.cabal    | 2 +-
 src/DefaultCSS.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/rhapsode.cabal b/rhapsode.cabal
index bab865d..ca4d24d 100644
--- a/rhapsode.cabal
+++ b/rhapsode.cabal
@@ -64,7 +64,7 @@ executable rhapsode
         http-client, http-client-tls, bytestring,
         html-conduit, xml-conduit, text, containers,
         network-uri,
-        stylish-haskell >= 0.4.0, css-syntax, stylish-html-conduit >= 0.2.0.0, scientific
+        stylist, css-syntax, xml-conduit-stylist, scientific
   
   -- Directories containing source files.
   hs-source-dirs:      src
diff --git a/src/DefaultCSS.hs b/src/DefaultCSS.hs
index 45221a7..b52f297 100644
--- a/src/DefaultCSS.hs
+++ b/src/DefaultCSS.hs
@@ -24,8 +24,8 @@ userAgentCSS = unlines [
   "",
   "/** Tables **/",
   "table::before {content: 'Table'; voice-volume: x-soft}",
-  "tr {cue-before: url(bulletpoint.wav); content: 'row'}",
-  "td, th {cue-before: url(bulletpoint.wav) -1db; content: 'cell'}",
+  "tr {cue-before: url(bulletpoint.wav);}",
+  "td, th {cue-before: url(bulletpoint.wav) -1db;}",
   "th > :th /* Rhapsode-specific, selects inlined table headers */ {speak: never;}",
   "table caption {voice-volume: soft}",
   "",
-- 
2.30.2