{-# 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"