safeLink variant which creates lucid's Attribute given base url.
type API = "path" :> Get '[JSON] Intlet 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"