From e7d53d6fc81fb14576fca035ab0360b44bbd6495 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 29 Sep 2020 21:55:23 +0200
Subject: override colors and query via JSON config

---
 src/Much/RenderTreeView.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Much/RenderTreeView.hs')

diff --git a/src/Much/RenderTreeView.hs b/src/Much/RenderTreeView.hs
index 60b48d6..d5999b2 100644
--- a/src/Much/RenderTreeView.hs
+++ b/src/Much/RenderTreeView.hs
@@ -196,11 +196,11 @@ renderTags state =
 
 
 renderTag :: State -> Tag -> Blessings String
-renderTag state tag = case lookup tag (tagMap (colorConfig state)) of
+renderTag state tag = case M.lookup tag (tagMap (colorConfig state)) of
     Just visual -> visual plain
     Nothing -> plain
   where
-    plain = Plain $ T.unpack $ fromMaybe tag $ lookup tag (tagSymbols state)
+    plain = Plain $ T.unpack $ fromMaybe tag $ M.lookup tag (tagSymbols state)
 
 
 dropAddress :: String -> String
-- 
cgit v1.2.3