Update patch

Author: hamishmack

overlays/patches/ghc/ghc-9.6.7-JS-implement-TH-support.patch

@@ -119,7 +119,7 @@ index 651f9bf8a2..24bfd5dfc4 100644
  import GHC.Types.Name.Ppr
  import GHC.Types.TyThing
  import GHC.Types.HpcInfo
-+import GHC.Types.Unique.Supply (uniqFromMask)
++import GHC.Types.Unique.Supply (uniqFromTag)
 +import GHC.Types.Unique (getKey)
 
  import GHC.Utils.Fingerprint ( Fingerprint )
@@ -234,7 +234,7 @@ index 651f9bf8a2..24bfd5dfc4 100644
 +  --
 +  -- The id has to be exported for the JS backend. This isn't required for the
 +  -- byte-code interpreter but it does no harm to always do it.
-+  u <- uniqFromMask 'I'
++  u <- uniqFromTag 'I'
 +  let binding_name = mkSystemVarName u (fsLit ("BCO_toplevel"))
 +  let binding_id   = mkExportedVanillaId binding_name (exprType simpl_expr)
 +