haskell/haskell-language-server
1
1
Fork 0
mirror of https://github.com/haskell/haskell-language-server.git synced 2024-09-11 08:45:35 +03:00
Code Issues Projects Releases Wiki Activity

Fix suggestNewDefinition tests

Browse Source
This commit is contained in:
Jan Hrček 2024-05-19 15:36:42 +02:00
parent b0e117bc6e
commit 2f3300e964
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
plugins/hls-refactor-plugin/src/Development/IDE/Plugin/Plugins/AddArgument.hs
View File

@ -7,8 +7,7 @@ import Data.Bifunctor (Bifunctor (..))
import Data.Either.Extra (maybeToEither)
import qualified Data.Text as T
import Development.IDE.GHC.Compat
import Development.IDE.GHC.Compat.ExactPrint (exactPrint,
makeDeltaAst)
import Development.IDE.GHC.Compat.ExactPrint (exactPrint)
import Development.IDE.GHC.Error (spanContainsRange)
import Development.IDE.GHC.ExactPrint (genAnchor1,
modifyMgMatchesT',
@ -120,7 +119,7 @@ appendFinalPatToMatches name = \case
addArgumentAction :: ParsedModule -> Range -> T.Text -> Maybe T.Text -> Either PluginError [(T.Text, [TextEdit])]
addArgumentAction (ParsedModule _ moduleSrc _ _) range name _typ = do
(newSource, _, _) <- runTransformT $ do
(moduleSrc', join -> matchedDeclNameMay) <- addNameAsLastArgOfMatchingDecl (makeDeltaAst moduleSrc)
(moduleSrc', join -> matchedDeclNameMay) <- addNameAsLastArgOfMatchingDecl moduleSrc
case matchedDeclNameMay of
Just (matchedDeclName, numPats) -> modifySigWithM (unLoc matchedDeclName) (addTyHoleToTySigArg numPats) moduleSrc'
Nothing -> pure moduleSrc'