Get the prelude building

pull/356/head
Taylor Fausak 2021-10-28 23:56:02 +00:00 committed by GitHub
parent 3277b1187d
commit 26b5d28885
1 changed files with 13 additions and 2 deletions

View File

@ -14,8 +14,16 @@ import GHC.Hs.Extension as E ( GhcPs )
import HsExtension as E ( GhcPs ) import HsExtension as E ( GhcPs )
#endif /* ghc-8.10.1 */ #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 ) 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 ) import qualified GHC ( dL, HasSrcSpan, SrcSpanLess )
#endif #endif
import qualified GHC ( Located ) import qualified GHC ( Located )
@ -404,7 +412,10 @@ todo :: a
todo = error "todo" 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.HasSrcSpan a => a -> GHC.Located (GHC.SrcSpanLess a)
ghcDL = GHC.dL ghcDL = GHC.dL
#else /* ghc-8.6 */ #else /* ghc-8.6 */