@@ -68,7 +68,7 @@ import qualified Data.List as L
6868import Data.Streaming.Network (bindPortTCP )
6969import qualified Data.Text as T
7070import qualified Network.HTTP.Types as HTTP
71- import qualified Network.HTTP.Types.Header as HTTP (hVary )
71+ import Network.HTTP.Types.Header (hVary )
7272import qualified Network.Socket as NS
7373import PostgREST.Unix (createAndBindDomainSocket )
7474import Protolude hiding (Handler )
@@ -223,10 +223,10 @@ postgrestResponse appState conf@AppConfig{..} maybeSchemaCache jwtTime authResul
223223 serverTimingHeaders timing = [serverTimingHeader timing | configServerTimingEnabled]
224224
225225 varyHeader :: HTTP. Header
226- varyHeader = (HTTP. hVary, " Accept, Prefer, Range" )
226+ varyHeader = (hVary, " Accept, Prefer, Range" )
227227
228228 varyHeaderPresent :: [HTTP. Header ] -> Bool
229- varyHeaderPresent = any (\ (h, _v) -> h == HTTP. hVary)
229+ varyHeaderPresent = any (\ (h, _v) -> h == hVary)
230230
231231withTiming :: (MonadError e m , MonadIO m ) => AppConfig -> m a -> m (Maybe Double , a )
232232withTiming AppConfig {configServerTimingEnabled} f = if configServerTimingEnabled
0 commit comments