1 files changed, 5 insertions(+), 3 deletions(-)

M 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"