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)