@@ -164,6 +164,10 @@ addQueryParam qp l =
164164-- >>> linkURI $ safeLink (Proxy :: Proxy API) (Proxy :: Proxy API) [1, 2, 3]
165165-- sum?x[]=1&x[]=2&x[]=3
166166--
167+-- >>> type API = "foo/bar" :> Get '[JSON] Int
168+-- >>> linkURI $ safeLink (Proxy :: Proxy API) (Proxy :: Proxy API)
169+-- foo%2Fbar
170+--
167171linkURI :: Link -> URI
168172linkURI = linkURI' LinkArrayElementBracket
169173
@@ -186,7 +190,7 @@ linkURI' :: LinkArrayElementStyle -> Link -> URI
186190linkURI' addBrackets (Link segments q_params) =
187191 URI mempty -- No scheme (relative)
188192 Nothing -- Or authority (relative)
189− (intercalate "/" segments)
193+ (intercalate "/" $ map escape segments)
190194 (makeQueries q_params) mempty
191195 where
192196 makeQueries :: [Param] -> String