Add HasLink instance for Header. Fixes #128
This commit is contained in:
parent
9f319963e9
commit
452ddf02e4
1 changed files with 4 additions and 0 deletions
|
@ -339,6 +339,10 @@ instance (ToText v, HasLink sub)
|
|||
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
|
||||
|
|
Loading…
Reference in a new issue