1 files changed, 1 insertions(+), 1 deletions(-)

M src/Network/URI/Fetch.hs

@@ 500,7 500,7 @@ dispatchByApp _ _ _ _ = return False
 #endif
 
 #ifdef WITH_HTTP_URI
-fetchHTTPCached session @ Session { trans' = t} shouldCache
+fetchHTTPCached session@Session { trans' = t} shouldCache
         accept@(defaultMIME:_) rawUri cbReq cbResp = do
     now <- getCurrentTime
     hsts <- readMVar $ hstsDomains session