bamboo-2009.4.22: src/Bamboo/View/Control/Search.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Control.Search where
  
import Bamboo.Helper.Env
import qualified Bamboo.Type.State as State
import qualified Bamboo.Config.Global as G

-- view
import Bamboo.View.Control.Helper
import Bamboo.View.Widget.Template

view state s = for_current_page p >>> map render_data >>> (+++ nav p ( (G.root / "search") ++ "?s=" ++ s ++ "&")) >>> page state
  where p = state.State.pager