X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=src%2FLanguage%2FLSP%2FTest.hs;fp=src%2FLanguage%2FLSP%2FTest.hs;h=89abfcf8b7a0c275c2903e9de9c9833c88b61bdf;hp=a068b0eda6bb9254e32aa49c4daadcb95716eb86;hb=8eb081b3dd74d549c2ebda3e630d0abfdfb71658;hpb=fb6a9f6f2b3d9393f5b356416d46cc92b098839f

diff --git a/src/Language/LSP/Test.hs b/src/Language/LSP/Test.hs
index a068b0e..89abfcf 100644
--- a/src/Language/LSP/Test.hs
+++ b/src/Language/LSP/Test.hs
@@ -283,13 +283,6 @@ getDocumentEdit doc = do
 
   documentContents doc
   where
-    -- extract Uri out from DocumentChange
-    documentChangeUri :: DocumentChange -> Uri
-    documentChangeUri (InL x) = x ^. textDocument . uri
-    documentChangeUri (InR (InL x)) = x ^. uri
-    documentChangeUri (InR (InR (InL x))) = x ^. oldUri
-    documentChangeUri (InR (InR (InR x))) = x ^. uri
-
     checkDocumentChanges req =
       let changes = req ^. params . edit . documentChanges
           maybeDocs = fmap (fmap documentChangeUri) changes