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

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

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


heistUrl :: MonadRoute m => URL m -> m [Node]
heistUrl u =
    do t <- showURL u
       return [TextNode t]