Bump haskell-lsp bounds

diff --git a/lsp-test.cabal b/lsp-test.cabal
index 2a12d7fb1dff41f6127010140bba087a8911e42f..9eabc8a16b1f106a1189fc46456fc38e54a580aa 100644 (file)
--- a/lsp-test.cabal
+++ b/lsp-test.cabal
@@ -42,7 +42,7 @@ library
                      , parser-combinators:Control.Applicative.Combinators
   default-language:    Haskell2010
   build-depends:       base >= 4.10 && < 5
                      , parser-combinators:Control.Applicative.Combinators
   default-language:    Haskell2010
   build-depends:       base >= 4.10 && < 5

-                     , haskell-lsp >= 0.22 && < 0.23
+                     , haskell-lsp >= 0.22 && < 0.24

                      , aeson
                      , aeson-pretty
                      , ansi-terminal
                      , aeson
                      , aeson-pretty
                      , ansi-terminal


@@ -82,7 +82,7 @@ executable dummy-server
   hs-source-dirs:      test/dummy-server
   ghc-options:         -W
   build-depends:       base >= 4.10 && < 5
   hs-source-dirs:      test/dummy-server
   ghc-options:         -W
   build-depends:       base >= 4.10 && < 5

-                     , haskell-lsp
+                     , haskell-lsp >= 0.23 && < 0.24

                      , data-default
                      , aeson
                      , unordered-containers
                      , data-default
                      , aeson
                      , unordered-containers


@@ -101,7 +101,7 @@ test-suite tests
   build-depends:       base >= 4.10 && < 5
                      , hspec
                      , lens
   build-depends:       base >= 4.10 && < 5
                      , hspec
                      , lens

-                     , haskell-lsp >= 0.22 && < 0.23
+                     , haskell-lsp >= 0.22 && < 0.24

                      , lsp-test
                      , data-default
                      , aeson
                      , lsp-test
                      , data-default
                      , aeson

diff --git a/test/dummy-server/Main.hs b/test/dummy-server/Main.hs
index ab917e8fa50ff825b35b996f78fd94fb80ad96b6..f0819d84c3535aadb75500f05e38c6d1b06ae4b0 100644 (file)
--- a/test/dummy-server/Main.hs
+++ b/test/dummy-server/Main.hs
@@ -112,7 +112,7 @@ handlers lfvar = def
   , completionHandler = pure $ \req -> do
       let res = CompletionList (CompletionListType False (List [item]))
           item =
   , completionHandler = pure $ \req -> do
       let res = CompletionList (CompletionListType False (List [item]))
           item =

-            CompletionItem "foo" (Just CiConstant) (List []) Nothing
+            CompletionItem "foo" (Just CiConstant) (Just (List [])) Nothing

             Nothing Nothing Nothing Nothing Nothing Nothing Nothing
             Nothing Nothing Nothing Nothing Nothing
       send $ RspCompletion $ makeResponseMessage req res
             Nothing Nothing Nothing Nothing Nothing Nothing Nothing
             Nothing Nothing Nothing Nothing Nothing
       send $ RspCompletion $ makeResponseMessage req res