From ee0372e0bfa3c175a28528393254c846cb634a85 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 8238e97f..880b951c 100644
--- 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