# --- T2-COPYRIGHT-BEGIN ---
# t2/package/*/haskell-network-uri/hotfix-th.patch
# Copyright (C) 2026 The T2 SDE Project
# SPDX-License-Identifier: GPL-2.0 or patched project license
# --- T2-COPYRIGHT-END ---

--- network-uri-2.7.0.0/Network/URI.hs.vanilla	2026-03-03 16:14:43.127025351 -0500
+++ network-uri-2.7.0.0/Network/URI.hs	2026-03-03 16:17:49.957216745 -0500
@@ -1423,7 +1423,7 @@
 
 {-# DEPRECATED authority "use uriAuthority, and note changed functionality" #-}
 authority :: URI -> String
-authority = dropss . ($"") . uriAuthToString id . uriAuthority
+authority = dropss . ($ "") . uriAuthToString id . uriAuthority
     where
         -- Old-style authority component does not include leading '//'
         dropss ('/':'/':s) = s
--- network-uri-2.7.0.0/Network/URI/Static.hs.vanilla	2026-03-03 16:19:58.437107117 -0500
+++ network-uri-2.7.0.0/Network/URI/Static.hs	2026-03-03 16:26:00.502118970 -0500
@@ -1,7 +1,6 @@
 #if __GLASGOW_HASKELL__ < 800
 module Network.URI.Static () where
 #else
-
 {-# LANGUAGE RecordWildCards, TemplateHaskellQuotes, ViewPatterns #-}
 
 module Network.URI.Static
@@ -15,6 +14,7 @@
     ) where
 
 import Language.Haskell.TH (unType)
+import Language.Haskell.TH.Syntax (examineCode)
 import Language.Haskell.TH.Lib (TExpQ)
 import Language.Haskell.TH.Quote (QuasiQuoter(..))
 import Network.URI (URI(..), parseURI, parseRelativeReference)
@@ -41,7 +41,7 @@
 -- ...
 staticURI :: String    -- ^ String representation of a URI
           -> TExpQ URI -- ^ URI
-staticURI (parseURI -> Just u) = [|| u ||]
+staticURI (parseURI -> Just u) = examineCode [|| u ||]
 staticURI s = fail $ "Invalid URI: " ++ s
 
 -- | 'uri' is a quasi quoter for 'staticURI'.
@@ -80,7 +80,7 @@
 -- ...
 staticRelativeReference :: String -- ^ String representation of a reference
                         -> TExpQ URI -- ^ Refererence
-staticRelativeReference (parseRelativeReference -> Just ref) = [|| ref ||]
+staticRelativeReference (parseRelativeReference -> Just ref) = examineCode [|| ref ||]
 staticRelativeReference ref = fail $ "Invalid relative reference: " ++ ref
 
 -- | 'relativeReference' is a quasi quoter for 'staticRelativeReference'.