summaryrefslogtreecommitdiff
path: root/src/Servant/Links.hs
diff options
context:
space:
mode:
authorphadej <>2018-11-13 16:10:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-11-13 16:10:00 (GMT)
commitb34e10e7e43e2d977b50050b2e2254cc73261b26 (patch)
tree5cacf966114c7819a9c55913d36dafbdf8990c9d /src/Servant/Links.hs
parentc146bcacca0e307118a047e19307fadb9b636761 (diff)
version 0.150.15
Diffstat (limited to 'src/Servant/Links.hs')
-rw-r--r--src/Servant/Links.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Servant/Links.hs b/src/Servant/Links.hs
index 812e22f..77f882d 100644
--- a/src/Servant/Links.hs
+++ b/src/Servant/Links.hs
@@ -170,7 +170,7 @@ import Servant.API.RemoteHost
import Servant.API.ReqBody
(ReqBody')
import Servant.API.Stream
- (Stream)
+ (Stream, StreamBody')
import Servant.API.Sub
(type (:>))
import Servant.API.TypeLevel
@@ -482,6 +482,10 @@ instance HasLink sub => HasLink (ReqBody' mods ct a :> sub) where
type MkLink (ReqBody' mods ct a :> sub) r = MkLink sub r
toLink toA _ = toLink toA (Proxy :: Proxy sub)
+instance HasLink sub => HasLink (StreamBody' mods framing ct a :> sub) where
+ type MkLink (StreamBody' mods framing ct a :> sub) r = MkLink sub r
+ toLink toA _ = toLink toA (Proxy :: Proxy sub)
+
instance (ToHttpApiData v, HasLink sub)
=> HasLink (Capture' mods sym v :> sub)
where