module Snap.Snaplet.Router.HeistSplices
( urlSplice
, urlParamsSplice
) where
import Data.Text
import Snap.Snaplet.Router.Internal.Types
import Snap.Snaplet.Router.URL (urlPathParams)
import Text.XmlHtml hiding (render)
import Web.Routes (PathInfo)
urlSplice
:: (HasRouter m, PathInfo (URL m)) => URL m
-> m [Node]
urlSplice u = urlParamsSplice u []
urlParamsSplice
:: (HasRouter m, PathInfo (URL m)) => URL m
-> [(Text, Maybe Text)]
-> m [Node]
urlParamsSplice u p = do
t <- urlPathParams u p
return [TextNode t]