Move CPP into compat layer

Author: Ailrun

ghcide/src/Development/IDE/GHC/Compat/Util.hs

@@ -68,7 +68,9 @@ module Development.IDE.GHC.Compat.Util (
     hGetStringBuffer,
     stringToStringBuffer,
     nextChar,
-    atEnd
+    atEnd,
+    -- * Char
+    is_ident
     ) where
 
 #if MIN_VERSION_ghc(9,0,0)
@@ -81,6 +83,7 @@ import           GHC.Data.FastString
 import           GHC.Data.Maybe
 import           GHC.Data.Pair
 import           GHC.Data.StringBuffer
+import           GHC.Parser.CharClass    (is_ident)
 import           GHC.Types.Unique
 import           GHC.Types.Unique.DFM
 import           GHC.Utils.Fingerprint
@@ -90,6 +93,7 @@ import           GHC.Utils.Panic         hiding (try)
 #else
 import           Bag
 import           BooleanFormula
+import           Ctype                   (is_ident)
 import           EnumSet
 import qualified Exception
 import           FastString

ghcide/src/Development/IDE/Plugin/CodeAction.hs

@@ -24,9 +24,6 @@ import           Control.Arrow                                     (second,
 import           Control.Concurrent.STM.Stats                      (atomically)
 import           Control.Monad                                     (guard, join)
 import           Control.Monad.IO.Class
-#if !MIN_VERSION_ghc(9,0,0)
-import           Ctype                                             (is_ident)
-#endif
 import           Data.Char
 import qualified Data.DList                                        as DL
 import           Data.Function
@@ -60,9 +57,6 @@ import           Development.IDE.Types.Exports
 import           Development.IDE.Types.Location
 import           Development.IDE.Types.Options
 import qualified GHC.LanguageExtensions                            as Lang
-#if MIN_VERSION_ghc(9,0,0)
-import           GHC.Parser.CharClass                              (is_ident)
-#endif
 import           Ide.PluginUtils                                   (subRange)
 import           Ide.Types
 import qualified Language.LSP.Server                               as LSP