From 2c6a5f585af4c48576bd804c5d3f6fa75ad35419 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Mon, 15 Jul 2019 12:50:13 +1200
Subject: [PATCH] Turn off CSS inheritance for cleaner output.

---
 rhapsode.cabal | 2 +-
 src/Main.hs    | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/rhapsode.cabal b/rhapsode.cabal
index f55838c..d23371f 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.2.2, css-syntax, stylish-html-conduit
+        stylish-haskell >= 0.4.0, css-syntax, stylish-html-conduit
   
   -- Directories containing source files.
   hs-source-dirs:      src
diff --git a/src/Main.hs b/src/Main.hs
index 8de7e9a..4e78fea 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -69,6 +69,7 @@ stylizeEl styles html
 data MapPropertyParser = MPP (M.Map XML.Name Text)
 instance Style.PropertyParser MapPropertyParser where
     temp = MPP M.empty
+    inherit _ = Style.temp
     longhand _ (MPP self) name value = Just $ MPP $ M.insert xmlName xmlValue self
         where
             xmlName = XML.Name name Nothing Nothing
-- 
2.30.2