Add HasLink instance for Header. Fixes #128

2015-06-18 12:40:00 +02:00 · 2015-06-18 12:40:00 +02:00 · ee0372e0bf
commit ee0372e0bf
parent 13edc014b7
1 changed files with 4 additions and 0 deletions
--- a/servant/src/Servant/Utils/Links.hs
+++ b/servant/src/Servant/Utils/Links.hs
@ -341,6 +341,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