projects
/
lsp-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9f492a2
)
Fix unhandle server notifications
author
Luke Lau
<luke_lau@icloud.com>
Mon, 22 Apr 2019 15:55:05 +0000
(16:55 +0100)
committer
Luke Lau
<luke_lau@icloud.com>
Tue, 23 Apr 2019 18:09:55 +0000
(19:09 +0100)
Bump to 0.5.1.3
ChangeLog.md
patch
|
blob
|
history
lsp-test.cabal
patch
|
blob
|
history
src/Language/Haskell/LSP/Test/Decoding.hs
patch
|
blob
|
history
src/Language/Haskell/LSP/Test/Messages.hs
patch
|
blob
|
history
diff --git
a/ChangeLog.md
b/ChangeLog.md
index 72ae18679eb619391cd0052fffd19003e670a5eb..3af75a6d1678271ad14bb4a4d868186ec4a8ef6d 100644
(file)
--- a/
ChangeLog.md
+++ b/
ChangeLog.md
@@
-1,5
+1,9
@@
# Revision history for lsp-test
# Revision history for lsp-test
+## 0.5.1.0 -- 2019-04-22
+
+* Fix unhandled `window/progress` server notifications
+
## 0.5.1.0 -- 2019-04-07
* Add getTypeDefinitions (@fendor)
## 0.5.1.0 -- 2019-04-07
* Add getTypeDefinitions (@fendor)
diff --git
a/lsp-test.cabal
b/lsp-test.cabal
index 273edf04b9a57c96c9a813b5e7a344968d434ea8..f47f134b5e4af490a9720e0a0376491a55754078 100644
(file)
--- a/
lsp-test.cabal
+++ b/
lsp-test.cabal
@@
-1,5
+1,5
@@
name: lsp-test
name: lsp-test
-version: 0.5.1.
2
+version: 0.5.1.
3
synopsis: Functional test framework for LSP servers.
description:
A test framework for writing tests against
synopsis: Functional test framework for LSP servers.
description:
A test framework for writing tests against
@@
-36,7
+36,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.
8
&& < 0.11
+ , haskell-lsp >= 0.
10
&& < 0.11
, aeson
, aeson-pretty
, ansi-terminal
, aeson
, aeson-pretty
, ansi-terminal
diff --git
a/src/Language/Haskell/LSP/Test/Decoding.hs
b/src/Language/Haskell/LSP/Test/Decoding.hs
index 2cbc41c07354f9c10f81ab902379085e52d5ed72..43810bbe7c28fa95e47a7795d65190a8598fc42f 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Decoding.hs
+++ b/
src/Language/Haskell/LSP/Test/Decoding.hs
@@
-131,6
+131,10
@@
decodeFromServerMsg reqMap bytes =
WindowShowMessage -> NotShowMessage $ fromJust $ decode bytes
WindowLogMessage -> NotLogMessage $ fromJust $ decode bytes
CancelRequestServer -> NotCancelRequestFromServer $ fromJust $ decode bytes
WindowShowMessage -> NotShowMessage $ fromJust $ decode bytes
WindowLogMessage -> NotLogMessage $ fromJust $ decode bytes
CancelRequestServer -> NotCancelRequestFromServer $ fromJust $ decode bytes
+ WindowProgressStart -> NotProgressStart $ fromJust $ decode bytes
+ WindowProgressReport -> NotProgressReport $ fromJust $ decode bytes
+ WindowProgressDone -> NotProgressDone $ fromJust $ decode bytes
+ WindowProgressCancel -> NotProgressCancel $ fromJust $ decode bytes
TelemetryEvent -> NotTelemetry $ fromJust $ decode bytes
WindowShowMessageRequest -> ReqShowMessage $ fromJust $ decode bytes
ClientRegisterCapability -> ReqRegisterCapability $ fromJust $ decode bytes
TelemetryEvent -> NotTelemetry $ fromJust $ decode bytes
WindowShowMessageRequest -> ReqShowMessage $ fromJust $ decode bytes
ClientRegisterCapability -> ReqRegisterCapability $ fromJust $ decode bytes
diff --git
a/src/Language/Haskell/LSP/Test/Messages.hs
b/src/Language/Haskell/LSP/Test/Messages.hs
index 02fa7fc41dd2f6e7dec83cfd3a9cfc59d3a0694a..258f91b2dfdc63525834eebed99ac82fdb865f64 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Messages.hs
+++ b/
src/Language/Haskell/LSP/Test/Messages.hs
@@
-90,6
+90,10
@@
handleServerMessage request response notification msg = case msg of
(NotPublishDiagnostics m) -> notification m
(NotLogMessage m) -> notification m
(NotShowMessage m) -> notification m
(NotPublishDiagnostics m) -> notification m
(NotLogMessage m) -> notification m
(NotShowMessage m) -> notification m
+ (NotProgressStart m) -> notification m
+ (NotProgressReport m) -> notification m
+ (NotProgressDone m) -> notification m
+ (NotProgressCancel m) -> notification m
(NotTelemetry m) -> notification m
(NotCancelRequestFromServer m) -> notification m
(NotTelemetry m) -> notification m
(NotCancelRequestFromServer m) -> notification m