From 3f6ccd2a7fee6a8954f2f67436de9fb117ed45d3 Mon Sep 17 00:00:00 2001
From: Lei Zhu <julytreee@gmail.com>
Date: Tue, 17 Dec 2024 20:53:27 +0800
Subject: [PATCH 1/2] Use ubuntu-22.04 instead of the latest on CI

---
 .github/workflows/build.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index 727f86a..639ef5f 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -13,7 +13,7 @@ jobs:
       fail-fast: false
       matrix:
         ghc: ['9.10', '9.8', '9.6', '9.4', '9.2', '9.0', '8.10', '8.8', '8.6', '8.4', '8.2', '8.0']
-        os: ['ubuntu-latest', 'windows-latest']
+        os: ['ubuntu-22.04', 'windows-latest']
 
     name: Build on ${{ matrix.os }} with GHC ${{ matrix.ghc }}
 

From a0b2bf54a5e20565d984686677df45ec3444cae9 Mon Sep 17 00:00:00 2001
From: sheaf <sam.derbyshire@gmail.com>
Date: Mon, 16 Dec 2024 15:27:29 +0000
Subject: [PATCH 2/2] Data.Array.Base: remove useless SPECIALISE pragmas

These SPECIALISE pragmas don't actually do anything,
and starting with GHC 9.14 cause a warning to be emitted.
This commit simply removes them.
---
 Data/Array/Base.hs | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/Data/Array/Base.hs b/Data/Array/Base.hs
index d5cf6d6..420fdfe 100644
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
@@ -587,11 +587,6 @@ cmpIntUArray arr1@(UArray l1 u1 n1 _) arr2@(UArray l2 u2 n2 _) =
 -----------------------------------------------------------------------------
 -- Showing and Reading IArrays
 
-{-# SPECIALISE
-    showsIArray :: (IArray UArray e, Ix i, Show i, Show e) =>
-                   Int -> UArray i e -> ShowS
-  #-}
-
 showsIArray :: (IArray a e, Ix i, Show i, Show e) => Int -> a i e -> ShowS
 showsIArray p a =
     showParen (p > appPrec) $
@@ -599,11 +594,7 @@ showsIArray p a =
     shows (bounds a) .
     showChar ' ' .
     shows (assocs a)
-
-{-# SPECIALISE
-    readIArray :: (IArray UArray e, Ix i, Read i, Read e) =>
-                   ReadPrec (UArray i e)
-  #-}
+    
 
 readIArray :: (IArray a e, Ix i, Read i, Read e) => ReadPrec (a i e)
 readIArray = parens $ prec appPrec $