1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
{-# LANGUAGE OverloadedStrings, UnicodeSyntax, Safe, CPP #-}
module Network.HTTP.Link.Writer (
writeLink
, writeLinkHeader
) where
import Data.Text hiding (map)
#if !MIN_VERSION_base(4,8,0)
import Data.Monoid (mconcat)
#endif
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
-- maybe URI escaping is not what we should do here? eh, whatever
writeLink ∷ (IsURI uri) ⇒ Link uri → Text
writeLink (Link u ps) = mconcat $ ["<", uriToText u, ">"] ++ map writeParam ps
writeLinkHeader ∷ (IsURI uri) ⇒ [Link uri] → Text
writeLinkHeader = intercalate ", " . map writeLink
|
