From 5de316d1457c8abfac4c41c2a86892b74a1db07c Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Mon, 16 Dec 2019 11:54:52 +0000
Subject: [PATCH] Remove rope-utf16-splay dependency

---
 lsp-test.cabal                   | 1 -
 src/Language/Haskell/LSP/Test.hs | 3 +--
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/lsp-test.cabal b/lsp-test.cabal
index dcb6793..0d43611 100644
--- a/lsp-test.cabal
+++ b/lsp-test.cabal
@@ -52,7 +52,6 @@ library
                      , mtl
                      , parser-combinators
                      , process >= 1.6
-                     , rope-utf16-splay
                      , text
                      , transformers
                      , unordered-containers
diff --git a/src/Language/Haskell/LSP/Test.hs b/src/Language/Haskell/LSP/Test.hs
index bca640f..3ad7b2f 100644
--- a/src/Language/Haskell/LSP/Test.hs
+++ b/src/Language/Haskell/LSP/Test.hs
@@ -114,7 +114,6 @@ import System.Environment
 import System.IO
 import System.Directory
 import System.FilePath
-import qualified Data.Rope.UTF16 as Rope
 
 -- | Starts a new session.
 --
@@ -204,7 +203,7 @@ documentContents :: TextDocumentIdentifier -> Session T.Text
 documentContents doc = do
   vfs <- vfs <$> get
   let file = vfsMap vfs Map.! toNormalizedUri (doc ^. uri)
-  return $ Rope.toText $ Language.Haskell.LSP.VFS._text file
+  return (virtualFileText file)
 
 -- | Parses an ApplyEditRequest, checks that it is for the passed document
 -- and returns the new content
-- 
2.30.2