Fix for ghcjs

hamishmack · hamishmack · commit 9843757d333f · 2025-03-13T16:13:15.000+13:00
diff --git a/overlays/patches/ghc/ghc-9.6.7-JS-implement-TH-support.patch b/overlays/patches/ghc/ghc-9.6.7-JS-implement-TH-support.patch
@@ -259,7 +259,7 @@ index 651f9bf8a2..24bfd5dfc4 100644
 +                              ml_hie_file  = panic "hscCompileCoreExpr':ml_hie_file" }
 +
 +  let ictxt = (hsc_IC hsc_env) {
-+                ic_mod_index = getKey u
++                ic_mod_index = fromIntegral (getKey u)
 +                  -- Ensure module uniqueness ("GhciNNNN") by reusing the unique
 +                  -- we've used for the binding. If ic_mod_index was mutable, we
 +                  -- would simply bump it here after its use.

Original file line number	Diff line number	Diff line change
`@@ -259,7 +259,7 @@ index 651f9bf8a2..24bfd5dfc4 100644`
`259`	`259`	`+ ml_hie_file = panic "hscCompileCoreExpr':ml_hie_file" }`
`260`	`260`	`+`
`261`	`261`	`+ let ictxt = (hsc_IC hsc_env) {`
`262`		`-+ ic_mod_index = getKey u`
	`262`	`++ ic_mod_index = fromIntegral (getKey u)`
`263`	`263`	`+ -- Ensure module uniqueness ("GhciNNNN") by reusing the unique`
`264`	`264`	`+ -- we've used for the binding. If ic_mod_index was mutable, we`
`265`	`265`	`+ -- would simply bump it here after its use.`