Fix build with GHC 9.4

IntersectMBO · Feb 15, 2024 · 00ef3fc · 00ef3fc
1 parent 21558d8
commit 00ef3fc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Block/RealPoint.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Block/RealPoint.hs
@@ -86,10 +86,10 @@ blockRealPoint blk = RealPoint s h
   where
     HeaderFields { headerFieldSlot = s, headerFieldHash = h } = getHeaderFields blk
 
-#if __GLASGOW_HASKELL__ >= 906
+#if __GLASGOW_HASKELL__ >= 904
 headerRealPoint :: (HasHeader blk, HasHeader (Header blk)) => Header blk -> RealPoint blk
 #else
--- GHC 9.6 considiers these constraints insufficient.
+-- GHC 9.4 considers these constraints insufficient.
 headerRealPoint :: HasHeader (Header blk) => Header blk -> RealPoint blk
 #endif
 headerRealPoint hdr = RealPoint s h