diff --git a/plugins/hls-explicit-fixity-plugin/hls-explicit-fixity-plugin.cabal b/plugins/hls-explicit-fixity-plugin/hls-explicit-fixity-plugin.cabal index 11405a1379..da10bbfca6 100644 --- a/plugins/hls-explicit-fixity-plugin/hls-explicit-fixity-plugin.cabal +++ b/plugins/hls-explicit-fixity-plugin/hls-explicit-fixity-plugin.cabal @@ -19,7 +19,13 @@ source-repository head type: git location: https://github.com/haskell/haskell-language-server.git +common warnings + ghc-options: + -Wall -Wunused-packages + -Wno-name-shadowing -Wno-unticked-promoted-constructors + library + import: warnings exposed-modules: Ide.Plugin.ExplicitFixity hs-source-dirs: src @@ -28,22 +34,17 @@ library , containers , deepseq , extra - , ghc , ghcide == 2.6.0.0 , hashable , hls-plugin-api == 2.6.0.0 , lsp >=2.3 , text - , transformers - ghc-options: - -Wall - -Wno-name-shadowing - -Wno-unticked-promoted-constructors default-language: Haskell2010 default-extensions: DataKinds test-suite tests + import: warnings type: exitcode-stdio-1.0 default-language: Haskell2010 hs-source-dirs: test diff --git a/plugins/hls-explicit-fixity-plugin/test/Main.hs b/plugins/hls-explicit-fixity-plugin/test/Main.hs index 13dca58f8d..c35401baad 100644 --- a/plugins/hls-explicit-fixity-plugin/test/Main.hs +++ b/plugins/hls-explicit-fixity-plugin/test/Main.hs @@ -56,11 +56,10 @@ hoverTest' docName title pos expected = testCase title $ runSessionWithServer de doc <- openDoc docName "haskell" waitForKickDone h <- getHover doc pos - let expected' = "\n" <> sectionSeparator <> expected case h of Nothing -> liftIO $ assertFailure "No hover" Just (Hover contents _) -> case contents of - InL (MarkupContent mk txt) -> do + InL (MarkupContent _ txt) -> do liftIO $ assertBool ("Failed to find `" <> T.unpack expected <> "` in hover message: " <> T.unpack txt) $ expected `T.isInfixOf` txt