~jack/casaaaaa

3b58190deb146fb9c675567ace4cddce9aedd420 — Jack Kelly 1 year, 3 months ago 2104499
Avoid redundant dom node
1 files changed, 3 insertions(+), 5 deletions(-)

M Main.hs
M Main.hs => Main.hs +3 -5
@@ 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"