SearchBar.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Widget.SearchBar where
  
import Bamboo.View.Env hiding (header)
import Bamboo.Helper.StateHelper (html_only_for)

search_bar :: Widget
search_bar s = html_only_for Search $ 
      div_id "search" 
  <<  form ! [action (s.config.root / "search"), method "get"]
  <<  thediv
  <<  textfield "s"