paramsPage :: ServerPart Response
paramsPage = 
    look "str" >>= \s ->
    appTemplate "Passing parameters in the url" (BH.div $ showParams s)
    where showParams :: String -> BH.Html
          showParams s = BH.toHtml $ "str: " ++ s
paramsPage :: ServerPart Response
paramsPage = 
    look "str" >>= \s ->
    appTemplate "Passing parameters in the url" (BH.div $ showParams s)
    where showParams :: String -> BH.Html
          showParams s = BH.toHtml $ "str: " ++ s
paramsPage = 
    look "str" >>= \s ->
    appTemplate "Passing parameters in the url" (BH.div $ showParams s)
    where showParams :: String -> BH.Html
          showParams s = BH.toHtml $ "str: " ++ s