Support (in theory) GHC 9.6 (#55)

chrisdone · Oct 28, 2024 · fbf2cd0 · fbf2cd0
1 parent 1c18220
commit fbf2cd0
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Hell.hs b/src/Hell.hs
@@ -8,6 +8,7 @@
 -- made some of this more ergonomic.
 
 {-# options_ghc -Wno-unused-foralls #-}
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE ExistentialQuantification, TypeApplications, BlockArguments, NamedFieldPuns, DataKinds #-}
 {-# LANGUAGE GADTs, PolyKinds, TupleSections, StandaloneDeriving, Rank2Types, FlexibleContexts #-}
 {-# LANGUAGE ViewPatterns, LambdaCase, ScopedTypeVariables, PatternSynonyms, TemplateHaskell #-}
@@ -75,7 +76,10 @@ import Data.Vector (Vector)
 import Data.Aeson (Value)
 import Data.Text (Text)
 import Data.ByteString (ByteString)
-import GHC.Types
+#if __GLASGOW_HASKELL__ >= 906
+import Control.Monad
+#endif
+import GHC.Types (Type)
 import GHC.TypeLits
 import Type.Reflection (SomeTypeRep(..), TypeRep, typeRepKind, typeRep, pattern TypeRep)