hls-pragmas-plugin 2.1.0.0 → 2.2.0.0

raw patch · 2 files changed

+9/−9 lines, 2 filesdep ~ghcidedep ~hls-plugin-apidep ~hls-test-utilsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: ghcide, hls-plugin-api, hls-test-utils

API changes (from Hackage documentation)

Files

• hls-pragmas-plugin.cabal +4/−4
• test/Main.hs +5/−5

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               hls-pragmas-plugin-version:            2.1.0.0+version:            2.2.0.0 synopsis:           Pragmas plugin for Haskell Language Server description:   Please see the README on GitHub at <https://github.com/haskell/haskell-language-server#readme>@@ -30,8 +30,8 @@     , extra     , fuzzy     , ghc-    , ghcide                == 2.1.0.0-    , hls-plugin-api        == 2.1.0.0+    , ghcide                == 2.2.0.0+    , hls-plugin-api        == 2.2.0.0     , lens     , lsp     , text@@ -53,7 +53,7 @@     , base     , filepath     , hls-pragmas-plugin-    , hls-test-utils      == 2.1.0.0+    , hls-test-utils      == 2.2.0.0     , lens     , lsp-types     , text

@@ -178,7 +178,7 @@  completionTest :: String -> FilePath -> T.Text -> T.Text -> Maybe InsertTextFormat -> Maybe T.Text -> Maybe T.Text -> [UInt] -> TestTree completionTest testComment fileName replacementText expectedLabel expectedFormat expectedInsertText detail [delFromLine, delFromCol, delToLine, delToCol, completeAtLine, completeAtCol] =-  testCase testComment $ runSessionWithServer pragmasCompletionPlugin testDataDir $ do+  testCase testComment $ runSessionWithServer def pragmasCompletionPlugin testDataDir $ do     doc <- openDoc fileName "haskell"     _ <- waitForDiagnostics     let te = TextEdit (Range (Position delFromLine delFromCol) (Position delToLine delToCol)) replacementText@@ -198,10 +198,10 @@  provideNoUndesiredCompletionsTest :: String -> FilePath -> Maybe T.Text -> Maybe TextEdit -> Position -> TestTree provideNoUndesiredCompletionsTest testComment fileName mUndesiredLabel mTextEdit pos =-  testCase testComment $ runSessionWithServer pragmasCompletionPlugin testDataDir $ do+  testCase testComment $ runSessionWithServer def pragmasCompletionPlugin testDataDir $ do+    setConfigSection "haskell" disableGhcideCompletions     doc <- openDoc fileName "haskell"     _ <- waitForDiagnostics-    _ <- sendConfigurationChanged disableGhcideCompletions     mapM_ (applyEdit doc) mTextEdit     compls <- getCompletions doc pos     liftIO $ case mUndesiredLabel of@@ -214,10 +214,10 @@                 Nothing -> pure ()  disableGhcideCompletions :: Value-disableGhcideCompletions = object [ "haskell" .= object ["plugin" .= object [ "ghcide-completions" .= object ["globalOn" .= False]]] ]+disableGhcideCompletions = object [ "plugin" .= object [ "ghcide-completions" .= object ["globalOn" .= False]]]  goldenWithPragmas :: PluginTestDescriptor () -> TestName -> FilePath -> (TextDocumentIdentifier -> Session ()) -> TestTree-goldenWithPragmas descriptor title path = goldenWithHaskellDoc descriptor title testDataDir path "expected" "hs"+goldenWithPragmas descriptor title path = goldenWithHaskellDoc def descriptor title testDataDir path "expected" "hs"  testDataDir :: FilePath testDataDir = "test" </> "testdata"