Container.purs

    eval (HandleSearchBox st str next) = do
      let packages = _.name <$>
                     Arr.filter (packageContained str) st.package
      _ <- H.subscribe
            (H.eventSource
              (\k -> J.select "#search" >>= Misc.autocomplete { source: packages
                                                              , select: k
                                                              })
              (\a -> Just $ SearchBoxChange (a.item.value) H.Listening))
      pure next