packages feed

panda-2008.10.25: src/Panda/View/Widget/SearchBar.hs

module Panda.View.Widget.SearchBar where
  
import Panda.Helper.Env hiding (header)
import qualified Panda.Config.Global as G
import Prelude hiding ((/))
import Panda.Type.Extension
import Panda.Helper.StateHelper

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