servant 0.4.2 → 0.4.3

raw patch · 2 files changed

+5/−1 lines, 2 filesnew-uploader

Files

servant.cabal +1/−1
src/Servant/Utils/Links.hs +4/−0

servant.cabal view

@@ -1,5 +1,5 @@ name:                servant-version:             0.4.2+version:             0.4.3 synopsis:            A family of combinators for defining webservices APIs description:   A family of combinators for defining webservices APIs and serving them

src/Servant/Utils/Links.hs view

@@ -339,6 +339,10 @@         toLink (Proxy :: Proxy sub) $             addSegment (escape . unpack $ toText v) l +instance HasLink sub => HasLink (Header sym a :> sub) where+    type MkLink (Header sym a :> sub) = MkLink sub+    toLink _ = toLink (Proxy :: Proxy sub)+ -- Verb (terminal) instances instance HasLink (Get y r) where     type MkLink (Get y r) = URI