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

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