Addresses #726

LeventErkok · Oct 2, 2024 · 2d325b6 · 2d325b6
1 parent bca37e9
commit 2d325b6
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Data/SBV/Core/Model.hs b/Data/SBV/Core/Model.hs
@@ -11,6 +11,7 @@
 
 {-# LANGUAGE BangPatterns            #-}
 {-# LANGUAGE ConstrainedClassMethods #-}
+{-# LANGUAGE CPP                     #-}
 {-# LANGUAGE DataKinds               #-}
 {-# LANGUAGE DefaultSignatures       #-}
 {-# LANGUAGE DeriveFunctor           #-}
@@ -64,7 +65,10 @@ import GHC.Generics (M1(..), U1(..), (:*:)(..), K1(..))
 import qualified GHC.Generics as G
 
 import GHC.Stack
-import GHC.TypeLits hiding (SChar)
+import GHC.TypeLits
+#if MIN_VERSION_base(4,18,0)
+                    hiding(SChar)
+#endif
 
 import Data.Array  (Array, Ix, elems, bounds, rangeSize)
 import qualified Data.Array as DA (listArray)