module Network.HTTP.Link.Writer (
writeLink
, writeLinkHeader
) where
import Data.Text hiding (map)
import Data.Monoid (mconcat)
import Network.URI
import Network.HTTP.Link.Types
writeParamKey :: LinkParam -> Text
writeParamKey Rel = "rel"
writeParamKey Anchor = "anchor"
writeParamKey Rev = "rev"
writeParamKey Hreflang = "hreflang"
writeParamKey Media = "media"
writeParamKey Title = "title"
writeParamKey Title' = "title*"
writeParamKey ContentType = "type"
writeParamKey (Other t) = t
writeParam :: (LinkParam, Text) -> Text
writeParam (t, v) = mconcat ["; ", writeParamKey t, "=\"", escPar v, "\""]
where escPar = pack . escapeURIString (/= '"') . unpack
writeLink :: Link -> Text
writeLink l = mconcat $ ["<", escURI $ href l, ">"] ++ map writeParam (linkParams l)
where escURI = pack . escapeURIString isAllowedInURI . unpack
writeLinkHeader :: [Link] -> Text
writeLinkHeader = intercalate ", " . map writeLink