Lucid.Servant

safeLink variant which creates lucid's Attribute given base url.

>>> type API = "path" :> Get '[JSON] Int>>> let api = Proxy :: Proxy API

>>> safeHref_ "" api apiAttribute "href" "path"

>>> safeHref_ "/" api apiAttribute "href" "/path"

>>> safeHref_ "http://example.com" api apiAttribute "href" "http://example.com/path"

>>> safeHref_ "http://example.com/" api apiAttribute "href" "http://example.com/path"

Create an href attribute from a Link, with given base url.

"servant" ensures that any Link is valid within an API. This function ensures it is possible to navigate to that endpoint from a page which shares a root with that API.

Create an href attribute from a Link, with leading /.

"servant" ensures that any Link is valid within an API. This function ensures it is possible to navigate to that endpoint from a page which shares a root with that API.

Create an href attribute from a Link, as a relative link.

"servant" ensures that any Link is valid within an API. Use this function if a relative link (no leading /) is required.