projects
/
opengl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add publishDiagnosticsNotification
[opengl.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Parsing.hs
diff --git
a/src/Language/Haskell/LSP/Test/Parsing.hs
b/src/Language/Haskell/LSP/Test/Parsing.hs
index 53485f19c832ed0cdaab269fbc758aec16cbb1c8..81e5cbed3d64b5ece0f330ea686c7f2b92cce110 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Parsing.hs
+++ b/
src/Language/Haskell/LSP/Test/Parsing.hs
@@
-1,4
+1,3
@@
-{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}
module Language.Haskell.LSP.Test.Parsing where
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}
module Language.Haskell.LSP.Test.Parsing where
@@
-9,7
+8,7
@@
import Control.Monad.IO.Class
import Control.Monad.Trans.Reader
import Control.Monad.Trans.State
import Language.Haskell.LSP.Messages
import Control.Monad.Trans.Reader
import Control.Monad.Trans.State
import Language.Haskell.LSP.Messages
-import Language.Haskell.LSP.Types
+import Language.Haskell.LSP.Types
hiding (error)
import Language.Haskell.LSP.Test.Messages
import Language.Haskell.LSP.Test.Decoding
import System.IO
import Language.Haskell.LSP.Test.Messages
import Language.Haskell.LSP.Test.Decoding
import System.IO
@@
-18,8
+17,6
@@
import Control.Concurrent.MVar
import Data.Conduit hiding (await)
import Data.Conduit.Parser
import Data.Conduit hiding (await)
import Data.Conduit.Parser
-data MessageParserState = MessageParserState
-
data SessionContext = SessionContext
{
serverIn :: Handle,
data SessionContext = SessionContext
{
serverIn :: Handle,
@@
-68,6
+65,13
@@
loggingNotification = satisfy shouldSkip
shouldSkip (ReqShowMessage _) = True
shouldSkip _ = False
shouldSkip (ReqShowMessage _) = True
shouldSkip _ = False
+publishDiagnosticsNotification :: Session PublishDiagnosticsNotification
+publishDiagnosticsNotification = do
+ (NotPublishDiagnostics diags) <- satisfy test
+ return diags
+ where test (NotPublishDiagnostics _) = False
+ test _ = False
+
satisfy :: Monad m => (a -> Bool) -> ConduitParser a m a
satisfy pred = do
x <- await
satisfy :: Monad m => (a -> Bool) -> ConduitParser a m a
satisfy pred = do
x <- await