bamboo-2009.4.22: src/Bamboo/View/Widget/SearchBar.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Widget.SearchBar where
  
import Bamboo.Helper.Env hiding (header)
import qualified Bamboo.Config.Global as G
import Bamboo.Type.Extension
import Bamboo.Helper.StateHelper

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