From b59e557a05bc2669332c52b397879e7598747b82 Mon Sep 17 00:00:00 2001
From: Nickolay Kudasov <nickolay.kudasov@gmail.com>
Date: Fri, 22 Jan 2016 15:11:12 +0300
Subject: [PATCH] Fix ToSwagger instance for Header

---
 src/Servant/Swagger/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Servant/Swagger/Internal.hs b/src/Servant/Swagger/Internal.hs
index f8e874375..df444efe8 100644
--- a/src/Servant/Swagger/Internal.hs
+++ b/src/Servant/Swagger/Internal.hs
@@ -292,7 +292,7 @@ instance (KnownSymbol sym, ToParamSchema a, HasSwagger sub) => HasSwagger (Heade
         & paramName .~ Text.pack name
         & paramSchema .~ ParamOther (mempty
             & paramOtherSchemaIn .~ ParamHeader
-            & parameterSchema .~ toParamSchema (Proxy :: Proxy Bool))
+            & parameterSchema .~ toParamSchema (Proxy :: Proxy a))
 
 instance (ToSchema a, AllAccept cs, HasSwagger sub) => HasSwagger (ReqBody cs a :> sub) where
   toSwagger _ = toSwagger (Proxy :: Proxy sub)