From ffbfedf62b15960138f418f5b16705b5915805df Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Tue, 14 Mar 2023 16:29:18 +1300
Subject: [PATCH] Fix what's now a syntax error (whitespace-separated @).

---
 src/Network/URI/Fetch.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Network/URI/Fetch.hs b/src/Network/URI/Fetch.hs
index d172200..47895ef 100644
--- a/src/Network/URI/Fetch.hs
+++ b/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
-- 
2.30.2