loosen renderSearchDropdown from Maybe to any Foldable

We need a multi-select version of `renderToolbarSearchDropdown` which returns
`Array` instead of `Maybe`. `renderToolbarSearchDropdown` depends on
`renderSearchDropdown` so we start from here.

Author: boygao1992

src/Typeahead.purs

@@ -68,7 +68,6 @@ import Data.Foldable as Data.Foldable
 import Data.Fuzzy as Data.Fuzzy
 import Data.Maybe (Maybe(..))
 import Data.Maybe as Data.Maybe
-import Data.Newtype as Data.Newtype
 import Data.Rational ((%))
 import Data.String as Data.String
 import Data.Time.Duration as Data.Time.Duration
@@ -914,12 +913,13 @@ renderMultiInput input renderContainer st =
     ]
 
 renderSearchDropdown
-  :: ∀ action item m
+  :: ∀ action f item m
    . Eq item
+  => Data.Foldable.Foldable f
   => String
   -> Halogen.HTML.PlainHTML
   -> (Data.Fuzzy.Fuzzy item -> Halogen.HTML.PlainHTML)
-  -> CompositeComponentRender action Maybe item m
+  -> CompositeComponentRender action f item m
 renderSearchDropdown resetLabel label renderFuzzy st =
   Halogen.HTML.label
     [ Ocelot.HTML.Properties.css "relative" ]
@@ -934,12 +934,14 @@ renderSearchDropdown resetLabel label renderFuzzy st =
       [ Ocelot.Block.ItemContainer.dropdownContainer
         [ renderInput, renderReset ]
         renderFuzzy
-        ((==) st.selected <<< Just <<< _.original <<< Data.Newtype.unwrap)
+        isSelected
         st.fuzzyItems
         st.highlightedIndex
       ]
     ]
   where
+  isSelected :: Data.Fuzzy.Fuzzy item -> Boolean
+  isSelected (Data.Fuzzy.Fuzzy { original }) = Data.Foldable.elem original st.selected
   renderInput =
     Halogen.HTML.div
       [ Ocelot.HTML.Properties.css "m-4 border-b-2 border-blue-88 pb-2 flex" ]
@@ -954,7 +956,7 @@ renderSearchDropdown resetLabel label renderFuzzy st =
       [ Halogen.HTML.Events.onClick \_ -> Select.Action $ RemoveAll
       ]
       [ Halogen.HTML.text resetLabel ]
-      ( Data.Maybe.isNothing st.selected )
+      ( Data.Foldable.null st.selected )
       false
 
 renderSingle