From abada8f8779f6af982672cd11e8759959ae7c03b Mon Sep 17 00:00:00 2001
From: Peter Becich <peterbecich@gmail.com>
Date: Sat, 19 Nov 2022 16:34:33 -0800
Subject: [PATCH] fix `hoistServerWithContext` warning

copied from https://github.com/haskell-servant/servant/issues/1484#issuecomment-988393396
---
 src/Servant/API/BrowserHeader.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Servant/API/BrowserHeader.hs b/src/Servant/API/BrowserHeader.hs
index 55bab47..0f9de5b 100644
--- a/src/Servant/API/BrowserHeader.hs
+++ b/src/Servant/API/BrowserHeader.hs
@@ -9,6 +9,7 @@
 {-# LANGUAGE ScopedTypeVariables    #-}
 {-# LANGUAGE TypeFamilies           #-}
 {-# LANGUAGE TypeOperators          #-}
+{-# LANGUAGE TypeApplications       #-}
 {-# LANGUAGE UndecidableInstances          #-}
 
 module Servant.API.BrowserHeader where
@@ -45,6 +46,9 @@ instance ( KnownSymbol sym
 
   route Proxy = route (Proxy :: Proxy (Header sym a :> sublayout))
 
+  hoistServerWithContext _ pc nt s =
+    hoistServerWithContext (Proxy @sublayout) pc nt . s
+
 
 -- Ignore BrowserHeader in HasForeign:
 instance (KnownSymbol sym, HasForeign lang ftype sublayout)