Comment to be compatible

haskell · May 23, 2022 · ce83ac1 · ce83ac1
1 parent 0d90b48
commit ce83ac1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/plugins/hls-class-plugin/src/Ide/Plugin/Class/ExactPrint.hs b/plugins/hls-class-plugin/src/Ide/Plugin/Class/ExactPrint.hs
@@ -26,7 +26,7 @@ import           Language.Haskell.GHC.ExactPrint.Utils   (rs)
 #endif
 
 makeEditText :: Monad m => ParsedModule -> DynFlags -> AddMinimalMethodsParams -> MaybeT m (T.Text, T.Text)
-addMethodDecls :: ParsedSource -> [(LHsDecl GhcPs, LHsDecl GhcPs)] -> Range -> Bool -> TransformT Identity (Located HsModule)
+-- addMethodDecls :: ParsedSource -> [(LHsDecl GhcPs, LHsDecl GhcPs)] -> Range -> Bool -> TransformT Identity (Located HsModule)
 #if MIN_VERSION_ghc(9,2,0)
 makeEditText pm df AddMinimalMethodsParams{..} = do
     List mDecls <- MaybeT . pure $ traverse (makeMethodDecl df) methodGroup
@@ -118,5 +118,5 @@ addMethodDecls ps mDecls range withSig = do
     foldM (insertAfter d) ps (reverse decls)
 
 findInstDecl :: ParsedSource -> Range -> Transform (LHsDecl GhcPs)
-findInstDecl ps range = head . filter (inRange range . getLoc) <$> hsDecls ps
+findInstDecl ps range = head . filter (inRange range) <$> hsDecls ps
 #endif