From 3b58190deb146fb9c675567ace4cddce9aedd420 Mon Sep 17 00:00:00 2001
From: Jack Kelly <jack@jackkelly.name>
Date: Mon, 1 Nov 2021 07:48:26 +1000
Subject: [PATCH] Avoid redundant dom node

---
 Main.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/Main.hs b/Main.hs
index 0b4cb04..b178cf1 100644
--- a/Main.hs
+++ b/Main.hs
@@ -86,17 +86,15 @@ body =
 
     networkView $ do
       searchFuncM <- searchFuncD
-      case searchFuncM of
-        Nothing ->
-          pure . divClass "container" $
-            dimText "Select something to search over."
+      divClass "container" <$> case searchFuncM of
+        Nothing -> pure $ dimText "Select something to search over."
         Just searchFunc ->
           let searchResultsD =
                 (fmap . fmap)
                   (\s -> searchFunc (T.unpack s) "" "" False)
                   searchTermD
            in searchResultsD
-                <&> maybe blank (divClass "container" . searchResultsWidget)
+                <&> maybe blank searchResultsWidget
 
     divClass "container" . el "details" $ do
       el "summary" $ text "Legal Stuff"
-- 
2.38.4