eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Merge pull request #130 from haskell-servant/fix-128

Browse source 
Add (missing) HasLink instance for Header. Fixes #128
This commit is contained in:
Alp Mestanogullari 2015-06-18 14:29:36 +01:00
commit 9b9ea1059c
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant/src/Servant/Utils/Links.hs
View file

@ -341,6 +341,10 @@ instance (ToText v, HasLink sub)
toLink (Proxy :: Proxy sub) $ toLink (Proxy :: Proxy sub) $
addSegment (escape . unpack $ toText v) l 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 -- Verb (terminal) instances
instance HasLink (Get y r) where instance HasLink (Get y r) where
type MkLink (Get y r) = URI type MkLink (Get y r) = URI