From 452ddf02e4b9f0ced1803dd740352d2f053bfda4 Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Thu, 18 Jun 2015 12:40:00 +0200
Subject: [PATCH] Add HasLink instance for Header. Fixes #128

---
 servant/src/Servant/Utils/Links.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/servant/src/Servant/Utils/Links.hs b/servant/src/Servant/Utils/Links.hs
index a217e20d..0d16d379 100644
--- a/servant/src/Servant/Utils/Links.hs
+++ b/servant/src/Servant/Utils/Links.hs
@@ -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