From: Luke Lau <luke_lau@icloud.com>
Date: Mon, 16 Dec 2019 11:54:52 +0000 (+0000)
Subject: Remove rope-utf16-splay dependency
X-Git-Tag: 0.10.0.0~8
X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=5de316d1457c8abfac4c41c2a86892b74a1db07c

Remove rope-utf16-splay dependency
---

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