recover accidentally deleted macros

Author: jetjinser

plugins/hls-explicit-record-fields-plugin/src/Ide/Plugin/ExplicitFields.hs

@@ -107,9 +107,9 @@ import           Language.LSP.Protocol.Types          (CodeAction (..),
                                                        WorkspaceEdit (WorkspaceEdit),
                                                        type (|?) (InL, InR))
 
-
+#if __GLASGOW_HASKELL__ < 910
 import           Development.IDE.GHC.Compat           (HsExpansion (HsExpanded))
-
+#endif
 
 data Log
   = LogShake Shake.Log
@@ -271,11 +271,11 @@ collectNamesRule = defineNoDiagnostics mempty $ \CollectNames nfp -> runMaybeT $
 -- | Collects all 'Name's of a given source file, to be used
 -- in the variable usage analysis.
 getNames :: TcModuleResult -> UniqFM Name [Name]
-
+#if __GLASGOW_HASKELL__ < 910
 getNames (tmrRenamed -> (group,_,_,_))   = collectNames group
-
-
-
+#else
+getNames (tmrRenamed -> (group,_,_,_,_)) = collectNames group
+#endif
 
 data CollectRecords = CollectRecords
                     deriving (Eq, Show, Generic)
@@ -493,11 +493,11 @@ getRecCons :: LHsExpr GhcTc -> ([RecordInfo], Bool)
 -- because there is a possibility that there were be more than one result per
 -- branch
 
-
-
-
+#if __GLASGOW_HASKELL__ >= 910
+getRecCons (unLoc -> XExpr (ExpandedThingTc a _)) = (collectRecords a, False)
+#else
 getRecCons (unLoc -> XExpr (ExpansionExpr (HsExpanded _ a))) = (collectRecords a, True)
-
+#endif
 getRecCons e@(unLoc -> RecordCon _ _ flds)
   | isJust (rec_dotdot flds) = (mkRecInfo e, False)
   where