Merge pull request #438 from input-output-hk/erikd/ghc-9.8

Make it build with ghc-9.8
IntersectMBO · Oct 6, 2023 · 13ac9c5 · 13ac9c5
2 parents a00c5bd + e088124
commit 13ac9c5
Show file tree

Hide file tree

Showing 11 changed files with 46 additions and 20 deletions.
diff --git a/cabal.project b/cabal.project
@@ -10,9 +10,9 @@ repository cardano-haskell-packages
     d4a35cd3121aa00d18544bb0ac01c3e1691d618f462c46129271bccf39f7e8ee
 
 -- The hackage index-state
-index-state: 2023-07-31T10:10:32Z
+index-state: 2023-10-05T21:19:55Z
 -- The CHaP index-state
-index-state: cardano-haskell-packages 2023-08-08T14:32:15Z
+index-state: cardano-haskell-packages 2023-10-05T20:34:14Z
 
 packages:
   base-deriving-via
@@ -37,3 +37,26 @@ benchmarks: true
 
 program-options
   ghc-options: -Werror
+
+if impl(ghc >= 9.8)
+  allow-newer:
+    , *:base
+    , *:deepseq
+    , *:ghc-prim
+    , *:template-haskell
+    , aeson:th-abstraction
+
+  constraints:
+    , aeson >= 2.0.0.0
+    , bytestring >= 0.11
+    , hastache >= 0.6.1
+    , monad-par >= 0.3.5
+    , statistics >= 0.16.2.0
+    , th-abstraction >= 0.6.0.0
+
+  -- Git head compiles with `ghc-9.8`, but Hackage version does not.
+  source-repository-package
+    type: git
+    location: https://github.com/recursion-schemes/recursion-schemes
+    tag: cc2e88c3400a6548e975830c9addb12ab087545f
+    --sha256: 06shyihy6cpblv3pf18xgdfjgxqw2y2awvpcy33r76fr642gdvgn
diff --git a/cardano-binary/cardano-binary.cabal b/cardano-binary/cardano-binary.cabal
@@ -16,7 +16,7 @@ build-type:          Simple
 extra-source-files:  README.md
                      CHANGELOG.md
 
-common base                         { build-depends: base >= 4.14 && < 4.19 }
+common base                         { build-depends: base >= 4.14 && < 5 }
 
 common project-config
   default-language:     Haskell2010

diff --git a/cardano-binary/test/cardano-binary-test.cabal b/cardano-binary/test/cardano-binary-test.cabal
@@ -13,7 +13,7 @@ category:            Currency
 build-type:          Simple
 extra-source-files:  CHANGELOG.md
 
-common base                         { build-depends: base >= 4.14 && < 4.19 }
+common base                         { build-depends: base >= 4.14 && < 5 }
 
 common project-config
   default-language:     Haskell2010

diff --git a/cardano-crypto-class/cardano-crypto-class.cabal b/cardano-crypto-class/cardano-crypto-class.cabal
@@ -26,7 +26,7 @@ flag secp256k1-support
     default: True
     manual: True
 
-common base                         { build-depends: base >= 4.14 && < 4.19 }
+common base                         { build-depends: base >= 4.14 && < 5 }
 
 common project-config
   default-language: Haskell2010

diff --git a/cardano-crypto-class/src/Cardano/Crypto/KES/Mock.hs b/cardano-crypto-class/src/Cardano/Crypto/KES/Mock.hs
@@ -64,7 +64,7 @@ instance KnownNat t => KESAlgorithm (MockKES t) where
 
     data SigKES (MockKES t) =
            SigMockKES !(Hash ShortHash ()) !(SignKeyKES (MockKES t))
-        deriving stock    (Show, Eq, Ord, Generic)
+        deriving stock    (Show, Eq, Generic)
         deriving anyclass (NoThunks)
 
     --

diff --git a/cardano-crypto-class/src/Cardano/Crypto/PinnedSizedBytes.hs b/cardano-crypto-class/src/Cardano/Crypto/PinnedSizedBytes.hs
@@ -385,9 +385,12 @@ ptrPsbToSizedPtr = SizedPtr . castPtr
 --   then this throws an exception.
 pinnedByteArrayFromListN :: forall a. Prim.Prim a => Int -> [a] -> ByteArray
 pinnedByteArrayFromListN 0 _ =
-    die "pinnedByteArrayFromListN" "list length zero"
+    die "pinnedByteArrayFromListN" "list length zero #1"
 pinnedByteArrayFromListN n ys = runST $ do
-    marr <- newPinnedByteArray (n * Prim.sizeOf (head ys))
+    let headYs = case ys of
+                  [] -> die "pinnedByteArrayFromListN" "list length zero #2"
+                  (y:_) -> y
+    marr <- newPinnedByteArray (n * Prim.sizeOf headYs)
     let go !ix [] = if ix == n
           then return ()
           else die "pinnedByteArrayFromListN" "list length less than specified size"

diff --git a/cardano-crypto-praos/cardano-crypto-praos.cabal b/cardano-crypto-praos/cardano-crypto-praos.cabal
@@ -44,7 +44,7 @@ flag external-libsodium-vrf
     default: True
     manual: True
 
-common base                         { build-depends: base >= 4.14 && < 4.19 }
+common base                         { build-depends: base >= 4.14 && < 5 }
 
 common project-config
   default-language:     Haskell2010

diff --git a/cardano-crypto-tests/cardano-crypto-tests.cabal b/cardano-crypto-tests/cardano-crypto-tests.cabal
@@ -27,7 +27,7 @@ flag secp256k1-support
     default: True
     manual: True
 
-common base                         { build-depends: base >= 4.14 && < 4.19 }
+common base                         { build-depends: base >= 4.14 && < 5 }
 
 common project-config
   default-language:     Haskell2010
@@ -66,7 +66,7 @@ library
   build-depends:        base
                       , bytestring >=0.10.12.0
                       , cardano-binary
-                      , cardano-crypto-class >= 2.2
+                      , cardano-crypto-class >= 2.1
                       , cardano-crypto-praos
                       , cborg
                       , containers

diff --git a/cardano-slotting/cardano-slotting.cabal b/cardano-slotting/cardano-slotting.cabal
@@ -13,7 +13,7 @@ copyright:           IOHK
 build-type:          Simple
 extra-source-files:  CHANGELOG.md
 
-common base                         { build-depends: base >= 4.14 && < 4.19 }
+common base                         { build-depends: base >= 4.14 && < 5 }
 
 common project-config
   default-language:     Haskell2010

diff --git a/flake.lock b/flake.lock
diff --git a/strict-checked-vars/strict-checked-vars.cabal b/strict-checked-vars/strict-checked-vars.cabal
@@ -51,7 +51,7 @@ library
 
   default-language: Haskell2010
   build-depends:
-    , base         >=4.9  && <4.19
+    , base         >=4.9  && <5
     , io-classes   ^>=1.2
     , strict-mvar  ^>=1.2
     , strict-stm   ^>=1.2
@@ -79,7 +79,7 @@ test-suite test
 
   default-language: Haskell2010
   build-depends:
-    , base                 >=4.9 && <4.19
+    , base
     , io-classes
     , io-sim
     , nothunks