Fix ToSwagger instance for Header

haskell-servant · Jan 22, 2016 · b59e557 · b59e557
1 parent aea1fff
commit b59e557
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)