Use ghcVersion check

Author: jneira

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

@@ -6,7 +6,6 @@
 module Development.IDE.GHC.Util(
     modifyDynFlags,
     evalGhcEnv,
-    isOverGhc9,
     -- * GHC wrappers
     prettyPrint,
     unsafePrintSDoc,
@@ -281,10 +280,3 @@ ioe_dupHandlesNotCompatible :: Handle -> IO a
 ioe_dupHandlesNotCompatible h =
    ioException (IOError (Just h) IllegalOperation "hDuplicateTo"
                 "handles are incompatible" Nothing Nothing)
-
-isOverGhc9 :: Bool
-#if MIN_VERSION_ghc(9,0,1)
-isOverGhc9 = True
-#else
-isOverGhc9 = False
-#endif

ghcide/src/Development/IDE/Main.hs

@@ -27,7 +27,8 @@ import           Data.Text.Lazy.Encoding               (decodeUtf8)
 import qualified Data.Text.Lazy.IO                     as LT
 import           Development.IDE                       (Action, Rules,
                                                         hDuplicateTo',
-                                                        isOverGhc9)
+                                                        GhcVersion(..),
+                                                        ghcVersion)
 import           Development.IDE.Core.Debouncer        (Debouncer,
                                                         newAsyncDebouncer)
 import           Development.IDE.Core.FileStore        (isWatchSupported,
@@ -259,7 +260,7 @@ defaultMain Arguments{..} = do
                             }
                     caps = LSP.resClientCapabilities env
                 -- FIXME: Remove this after GHC 9 gets fully supported
-                when isOverGhc9 $
+                when (ghcVersion == GHC90) $
                     LSP.runLspT env $
                     LSP.sendNotification LSP.SWindowShowMessage $
                     LSP.ShowMessageParams LSP.MtWarning $