hls-haddock-comments-plugin 1.0.0.4 → 1.0.1.0
raw patch · 3 files changed
+7/−8 lines, 3 filesdep ~ghc-exactprintdep ~ghcidedep ~hls-plugin-api
Dependency ranges changed: ghc-exactprint, ghcide, hls-plugin-api, hls-test-utils
Files
hls-haddock-comments-plugin.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: hls-haddock-comments-plugin-version: 1.0.0.4+version: 1.0.1.0 synopsis: Haddock comments plugin for Haskell Language Server description: Please see the README on GitHub at <https://github.com/haskell/haskell-language-server>@@ -29,8 +29,8 @@ , containers , ghc , ghc-exactprint- , ghcide >=1.2 && <1.6- , hls-plugin-api >=1.1 && <1.3+ , ghcide ^>=1.6+ , hls-plugin-api ^>=1.3 , lsp-types , text , unordered-containers@@ -50,5 +50,5 @@ , base , filepath , hls-haddock-comments-plugin- , hls-test-utils >=1.0 && <1.2+ , hls-test-utils ^>=1.2 , text
src/Ide/Plugin/HaddockComments.hs view
@@ -15,8 +15,7 @@ import qualified Data.Text as T import Development.IDE hiding (pluginHandlers) import Development.IDE.GHC.Compat-import Development.IDE.GHC.ExactPrint (GetAnnotatedParsedSource (..),- annsA, astA)+import Development.IDE.GHC.ExactPrint (GetAnnotatedParsedSource (..)) import Ide.Types import Language.Haskell.GHC.ExactPrint import Language.Haskell.GHC.ExactPrint.Types hiding (GhcPs)
test/Main.hs view
@@ -35,7 +35,7 @@ expectedNothing "StaleRecord" Record 3 12 ] -goldenWithHaddockComments :: FilePath -> GenCommentsType -> Int -> Int -> TestTree+goldenWithHaddockComments :: FilePath -> GenCommentsType -> UInt -> UInt -> TestTree goldenWithHaddockComments fp (toTitle -> expectedTitle) l c = goldenWithHaskellDoc haddockCommentsPlugin (fp <> " (golden)") testDataDir fp "expected" "hs" $ \doc -> do actions <- getCodeActions doc (Range (Position l c) (Position l $ succ c))@@ -43,7 +43,7 @@ Just (InR x) -> executeCodeAction x _ -> liftIO $ assertFailure "Unable to find CodeAction" -expectedNothing :: FilePath -> GenCommentsType -> Int -> Int -> TestTree+expectedNothing :: FilePath -> GenCommentsType -> UInt -> UInt -> TestTree expectedNothing fp (toTitle -> expectedTitle) l c = testCase fp $ runSessionWithServer haddockCommentsPlugin testDataDir $ do doc <- openDoc (fp <.> "hs") "haskell"