hls-stan-plugin 2.0.0.1 → 2.1.0.0

raw patch · 3 files changed

+10/−7 lines, 3 filesdep ~hls-test-utils

Dependency ranges changed: hls-test-utils

Files

• hls-stan-plugin.cabal +2/−2
• src/Ide/Plugin/Stan.hs +6/−3
• test/Main.hs +2/−2

@@ -1,6 +1,6 @@ cabal-version: 2.4 name:          hls-stan-plugin-version:            2.0.0.1+version:       2.1.0.0 synopsis:      Stan integration plugin with Haskell Language Server description:   Please see the README on GitHub at <https://github.com/haskell/haskell-language-server#readme>@@ -74,7 +74,7 @@     , filepath     , hls-stan-plugin     , hls-plugin-api-    , hls-test-utils      == 2.0.0.1+    , hls-test-utils      == 2.1.0.0     , lens     , lsp-types     , text

@@ -13,6 +13,7 @@ import           Data.Maybe                     (fromJust, mapMaybe) import qualified Data.Text                      as T import           Development.IDE+import           Development.IDE                (Diagnostic (_codeDescription)) import           Development.IDE.Core.Rules     (getHieFile,                                                  getSourceFileSource) import           Development.IDE.Core.RuleTypes (HieAstResult (..))@@ -33,7 +34,7 @@                                                  defaultConfigDescriptor,                                                  defaultPluginDescriptor,                                                  pluginEnabledConfig)-import qualified Language.LSP.Types             as LSP+import qualified Language.LSP.Protocol.Types    as LSP import           Stan.Analysis                  (Analysis (..), runAnalysis) import           Stan.Category                  (Category (..)) import           Stan.Core.Id                   (Id (..))@@ -110,11 +111,13 @@           ShowDiag,           LSP.Diagnostic             { _range = realSrcSpanToRange observationSrcSpan,-              _severity = Just LSP.DsHint,+              _severity = Just LSP.DiagnosticSeverity_Hint,               _code = Just (LSP.InR $ unId (inspectionId inspection)),               _source = Just "stan",               _message = message,               _relatedInformation = Nothing,-              _tags = Nothing+              _tags = Nothing,+              _codeDescription = Nothing,+              _data_ = Nothing             }           )

@@ -10,7 +10,7 @@ import qualified Data.Text               as T import qualified Data.Text.IO            as T import qualified Ide.Plugin.Stan         as Stan-import qualified Language.LSP.Types.Lens as L+import qualified Language.LSP.Protocol.Lens as L import           System.FilePath import           Test.Hls @@ -28,7 +28,7 @@           liftIO $ do             length diags @?= 1             reduceDiag ^. L.range @?= Range (Position 0 0) (Position 3 19)-            reduceDiag ^. L.severity @?= Just DsHint+            reduceDiag ^. L.severity @?= Just DiagnosticSeverity_Hint             let expectedPrefix = " ✲ Name:        "             assertBool "" $ T.isPrefixOf expectedPrefix (reduceDiag ^. L.message)             reduceDiag ^. L.source @?= Just "stan"