@@ -106,6 +106,7 @@ import Prelude ()
106106import Prelude.Compat
107107
108108import Web.HttpApiData
109+import Servant.API.BasicAuth ( BasicAuth )
109110import Servant.API.Capture ( Capture )
110111import Servant.API.ReqBody ( ReqBody )
111112import Servant.API.QueryParam ( QueryParam, QueryParams, QueryFlag )
@@ -291,6 +292,10 @@ instance HasLink sub => HasLink (RemoteHost :> sub) where
291292 type MkLink (RemoteHost :> sub) = MkLink sub
292293 toLink _ = toLink (Proxy :: Proxy sub)
293294
295+instance HasLink sub => HasLink (BasicAuth realm a :> sub) where
296+ type MkLink (BasicAuth realm a :> sub) = MkLink sub
297+ toLink _ = toLink (Proxy :: Proxy sub)
298+
294299-- Verb (terminal) instances
295300instance HasLink (Verb m s ct a) where
296301 type MkLink (Verb m s ct a) = URI