From f5e627c1912bc66b7b8bb2c1a389b59fb34de883 Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Mon, 11 Jun 2018 12:12:20 -0400
Subject: [PATCH] Add type synonym for test version of Session

---
 test/ParsingTests.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/ParsingTests.hs b/test/ParsingTests.hs
index c8977b5..31bcfef 100644
--- a/test/ParsingTests.hs
+++ b/test/ParsingTests.hs
@@ -9,6 +9,8 @@ import Data.Conduit
 import Data.Conduit.Parser
 import Test.Hspec
 
+type TestSession = ConduitParser FromServerMessage IO
+
 parsingSpec :: Spec
 parsingSpec =
   describe "diagnostics" $ do
@@ -20,7 +22,7 @@ parsingSpec =
     it "get picked up" $ do
       let source = yield testDiag
           session = do
-            diags <- publishDiagnosticsNotification :: ConduitParser FromServerMessage IO PublishDiagnosticsNotification
+            diags <- publishDiagnosticsNotification :: TestSession PublishDiagnosticsNotification
             return $ diags ^. params . uri
       runConduit (source .| runConduitParser session) `shouldReturn` Uri "foo"
     it "get picked up after skipping others before" $ do
@@ -32,6 +34,6 @@ parsingSpec =
           notTestDiag = NotLogMessage (NotificationMessage "2.0" WindowLogMessage (LogMessageParams MtLog "foo"))
           source = yield notTestDiag >> yield testDiag
           session = do
-            diags <- skipManyTill anyNotification notification :: ConduitParser FromServerMessage IO PublishDiagnosticsNotification
+            diags <- skipManyTill anyNotification notification :: TestSession PublishDiagnosticsNotification
             return $ diags ^. params . uri
       runConduit (source .| runConduitParser session) `shouldReturn` Uri "foo"
-- 
2.30.2