6702d7e · typeable/servant

git.iko.soy/typeable/servant

on master help sign in

Merge pull request #497 from jekor/master

6702d7eJulian Arni10 years ago

servant/src/Servant/Utils/Links.hs+5

@@ -116,6 +116,7 @@ import Servant.API.Capture ( Capture )

116import Servant.API.ReqBody ( ReqBody )

117import Servant.API.QueryParam ( QueryParam, QueryParams, QueryFlag )

118import Servant.API.Header ( Header )

119+import Servant.API.RemoteHost ( RemoteHost )

119import Servant.API.Verbs ( Verb )

120import Servant.API.Verbs ( Verb )

120import Servant.API.Sub ( type (:>) )

121import Servant.API.Sub ( type (:>) )

121import Servant.API.Raw ( Raw )

122import Servant.API.Raw ( Raw )

@@ -292,6 +293,10 @@ instance HasLink sub => HasLink (Header sym a :> sub) where

292 type MkLink (Header sym a :> sub) = MkLink sub

293 type MkLink (Header sym a :> sub) = MkLink sub

293 toLink _ = toLink (Proxy :: Proxy sub)

294 toLink _ = toLink (Proxy :: Proxy sub)

294

295

296+instance HasLink sub => HasLink (RemoteHost :> sub) where

297+ type MkLink (RemoteHost :> sub) = MkLink sub

298+ toLink _ = toLink (Proxy :: Proxy sub)

299+

295-- Verb (terminal) instances

300-- Verb (terminal) instances

296instance HasLink (Verb m s ct a) where

301instance HasLink (Verb m s ct a) where

297 type MkLink (Verb m s ct a) = URI

302 type MkLink (Verb m s ct a) = URI