From e73cd8f9c4ba3bc435d39012833b87b7cfeddb58 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 8 Nov 2019 14:30:56 +1300
Subject: [PATCH] Code cleanliness: drop unneeded ' from
 Data.CSS.Style.Cascade.dispatch'

---
 src/Data/CSS/Style/Cascade.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Data/CSS/Style/Cascade.hs b/src/Data/CSS/Style/Cascade.hs
index 44728d2..32f3ddc 100644
--- a/src/Data/CSS/Style/Cascade.hs
+++ b/src/Data/CSS/Style/Cascade.hs
@@ -60,11 +60,11 @@ cascadeProperties overrides props = fromList (props ++ overrides)
 construct :: PropertyParser p => p -> Props -> p
 construct base props = dispatch' base child props
     where child = setVars [item | item@(n, _) <- props, isPrefixOf "--" n] $ inherit base
-dispatch' :: PropertyParser p => p -> p -> Props -> p
-dispatch' base child ((key, value):props)
-    | Just child' <- longhand base child key value = dispatch' base child' props
-    | otherwise = dispatch' base child props
-dispatch' _ child [] = child
+dispatch :: PropertyParser p => p -> p -> Props -> p
+dispatch base child ((key, value):props)
+    | Just child' <- longhand base child key value = dispatch base child' props
+    | otherwise = dispatch base child props
+dispatch _ child [] = child
 
 --------
 ---- attr()
-- 
2.30.2