From 26b5d288850a448acc2f1f0bb70ba4360b7c8504 Mon Sep 17 00:00:00 2001
From: Taylor Fausak <taylor@fausak.me>
Date: Thu, 28 Oct 2021 23:56:02 +0000
Subject: [PATCH] Get the prelude building

---
 src/Language/Haskell/Brittany/Internal/Prelude.hs | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Prelude.hs b/src/Language/Haskell/Brittany/Internal/Prelude.hs
index b33e339..dab846a 100644
--- a/src/Language/Haskell/Brittany/Internal/Prelude.hs
+++ b/src/Language/Haskell/Brittany/Internal/Prelude.hs
@@ -14,8 +14,16 @@ import GHC.Hs.Extension               as E ( GhcPs )
 import HsExtension                    as E ( GhcPs )
 #endif /* ghc-8.10.1 */
 
+#if MIN_VERSION_ghc(9,0,0)
+import GHC.Types.Name.Reader          as E ( RdrName )
+#else
 import RdrName                        as E ( RdrName )
-#if MIN_VERSION_ghc(8,8,0)
+#endif
+
+#if MIN_VERSION_ghc(9,0,0)
+-- Does not exist in GHC >= 9.0.1.
+-- https://gitlab.haskell.org/ghc/ghc/-/issues/17494
+#elif MIN_VERSION_ghc(8,8,0)
 import qualified GHC                       ( dL, HasSrcSpan, SrcSpanLess )
 #endif
 import qualified GHC                       ( Located )
@@ -404,7 +412,10 @@ todo :: a
 todo = error "todo"
 
 
-#if MIN_VERSION_ghc(8,8,0)
+#if MIN_VERSION_ghc(9,0,0)
+ghcDL :: a -> a
+ghcDL = id
+#elif MIN_VERSION_ghc(8,8,0)
 ghcDL :: GHC.HasSrcSpan a => a -> GHC.Located (GHC.SrcSpanLess a)
 ghcDL = GHC.dL
 #else              /* ghc-8.6 */