Manual GLASGOW_HASKELL bits

Author: michaelpj

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

@@ -537,10 +537,6 @@ ghcVersion = GHC96
 ghcVersion = GHC94
 #elif MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
 ghcVersion = GHC92
-#elif MIN_VERSION_GLASGOW_HASKELL(9,0,0,0)
-ghcVersion = GHC90
-#elif MIN_VERSION_GLASGOW_HASKELL(8,10,0,0)
-ghcVersion = GHC810
 #endif
 
 runUnlit :: Logger -> DynFlags -> [Option] -> IO ()

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

@@ -596,31 +596,24 @@ pattern RealSrcLoc x y = SrcLoc.RealSrcLoc x y
 pattern AvailTC :: Name -> [Name] -> [FieldLabel] -> Avail.AvailInfo
 #if __GLASGOW_HASKELL__ >= 907
 pattern AvailTC n names pieces <- Avail.AvailTC n ((,[]) -> (names,pieces))
-#elif __GLASGOW_HASKELL__ >= 902
+#else 
 pattern AvailTC n names pieces <- Avail.AvailTC n ((\gres -> foldr (\gre (names, pieces) -> case gre of
       Avail.NormalGreName name -> (name: names, pieces)
       Avail.FieldGreName label -> (names, label:pieces)) ([], []) gres) -> (names, pieces))
-#else
-pattern AvailTC n names pieces <- Avail.AvailTC n names pieces
 #endif
 
 pattern AvailName :: Name -> Avail.AvailInfo
 #if __GLASGOW_HASKELL__ >= 907
 pattern AvailName n <- Avail.Avail n
-#elif __GLASGOW_HASKELL__ >= 902
+#else 
 pattern AvailName n <- Avail.Avail (Avail.NormalGreName n)
-#else
-pattern AvailName n <- Avail.Avail n
 #endif
 
 pattern AvailFL :: FieldLabel -> Avail.AvailInfo
 #if __GLASGOW_HASKELL__ >= 907
 pattern AvailFL fl <- (const Nothing -> Just fl) -- this pattern always fails as this field was removed in 9.7
-#elif __GLASGOW_HASKELL__ >= 902
+#else 
 pattern AvailFL fl <- Avail.Avail (Avail.FieldGreName fl)
-#else
--- pattern synonym that is never populated
-pattern AvailFL x <- Avail.Avail (const (True, undefined) -> (False, x))
 #endif
 
 {-# COMPLETE AvailTC, AvailName, AvailFL #-}

ghcide/test/data/hover/RecordDotSyntax.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-#if __GLASGOW_HASKELL__ >= 902
 {-# LANGUAGE OverloadedRecordDot, DuplicateRecordFields, NoFieldSelectors #-}
 
 module RecordDotSyntax ( module RecordDotSyntax) where
@@ -18,4 +16,3 @@ newtype MyChild = MyChild
 
 x = MyRecord { a = "Hello", b = 12, c = MyChild { z = "there" } }
 y = x.a ++ show x.b ++ x.c.z
-#endif

plugins/hls-refactor-plugin/test/data/hover/RecordDotSyntax.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-#if __GLASGOW_HASKELL__ >= 902
 {-# LANGUAGE OverloadedRecordDot, DuplicateRecordFields, NoFieldSelectors #-}
 
 module RecordDotSyntax ( module RecordDotSyntax) where
@@ -18,4 +16,3 @@ newtype MyChild = MyChild
 
 x = MyRecord { a = "Hello", b = 12, c = MyChild { z = "there" } }
 y = x.a ++ show x.b ++ x.c.z
-#endif