snap-web-routes-0.3.0.0: src/Snap/Web/Routes/Heist.hs

module Snap.Web.Routes.Heist
  ( urlSplice
  ) where

import Text.XmlHtml hiding (render)
import Web.Routes

------------------------------------------------------------------------------
-- | Render a url as a `Heist` splice.
urlSplice :: MonadRoute m => URL m -> m [Node]
urlSplice u =
    do t <- showURL u
       return [TextNode t]