X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest.hs;h=5883271d89bc57ab997530baa57721ad47a91ca0;hb=1f4a12c49be0cb8640d60c21f6499c5567646fba;hp=6ee8405e95cf8b48a686da53dce29d07961dbe18;hpb=bd554ce2292b667f7870e9643a1107a81063a596;p=opengl.git

diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs
index 6ee8405..5883271 100644
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@ -2,7 +2,7 @@
 module Language.Haskell.LSP.Test
   (
   -- * Sessions
-    session
+    manualSession
   -- * Documents
   , openDocument
   , documentSymbols
@@ -17,14 +17,16 @@ import Data.Maybe
 import Data.Proxy
 import System.Process
 import qualified Language.Haskell.LSP.Client as Client
+import Language.Haskell.LSP.Messages
 import qualified Language.Haskell.LSP.TH.DataTypesJSON as LSP
+import Language.Haskell.LSP.Test.Recorded
 import Capabilities
 import Compat
 
 type Session = ReaderT Client.Client IO
 
-session :: Session a -> IO ()
-session f = do
+manualSession :: Session a -> IO ()
+manualSession f = do
   (Just hin, Just hout, _, serverProc) <- createProcess (proc "hie" ["--lsp", "-l", "/tmp/hie.log"])
     { std_in = CreatePipe, std_out = CreatePipe }
   client <- Client.start $ Client.Config hin hout notificationHandler requestHandler