{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE FlexibleInstances #-}
module ParsingTests where
import Control.Lens hiding (List)
import Language.Haskell.LSP.Types
import Data.Conduit
import Data.Conduit.Parser
+import Data.Default
import Test.Hspec
type TestSession = ConduitParser FromServerMessage IO
+instance MonadSessionConfig IO where
+ sessionConfig = return def
+
parsingSpec :: Spec
parsingSpec =
describe "diagnostics" $ do