From 882b2d8d447a182bde24b5f1b9dc4da8821ce3b7 Mon Sep 17 00:00:00 2001
From: Jack Kelly <jack@jackkelly.name>
Date: Mon, 1 Nov 2021 07:53:46 +1000
Subject: [PATCH] Revert "Avoid redundant dom node"

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

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