-- | -- Module : Web.Saferoute.Blaze -- Description : Support for blaze-html -- Copyright : 2014, Peter Harpending. -- License : BSD3 -- Maintainer : Peter Harpending <pharpend2@gmail.com> -- Stability : experimental -- Portability : archlinux -- module Web.Saferoute.Blaze where import qualified Text.Blaze.Html5 as H import Web.Saferoute -- |Foreign resources need only to have a URL, which needs to be an -- embeddable attribute. type ForeignResource = H.AttributeValue -- |Given a 'Resource', get the URL for it. getUrl :: Resource r => r -> H.AttributeValue getUrl = H.toValue . getRoute