X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FFiles.hs;h=59d51cef5a078212749787c9d6f5b41f089112f0;hb=bd554ce2292b667f7870e9643a1107a81063a596;hp=9f78ec1855a4c356da81846a0d2f9184992a293a;hpb=2560f39d64911bc247fa479868052545dca4f827;p=opengl.git

diff --git a/src/Language/Haskell/LSP/Test/Files.hs b/src/Language/Haskell/LSP/Test/Files.hs
index 9f78ec1..59d51ce 100644
--- a/src/Language/Haskell/LSP/Test/Files.hs
+++ b/src/Language/Haskell/LSP/Test/Files.hs
@@ -11,8 +11,6 @@ import           Language.Haskell.LSP.Capture
 import           Language.Haskell.LSP.Types hiding ( error )
 import           Language.Haskell.LSP.Messages
 import           Control.Lens
-import           Data.Aeson
-import qualified Data.ByteString.Lazy.Char8    as B
 import qualified Data.HashMap.Strict           as HM
 import qualified Data.Text                     as T
 import           Data.Maybe
@@ -46,6 +44,7 @@ mapUris f event =
     FromServer t msg -> FromServer t (fromServerMsg msg)
 
   where
+    --TODO: Handle all other URIs that might need swapped
     fromClientMsg (NotDidOpenTextDocument n) = NotDidOpenTextDocument $ swapUri (params . textDocument) n
     fromClientMsg (NotDidChangeTextDocument n) = NotDidChangeTextDocument $ swapUri (params . textDocument) n
     fromClientMsg (NotWillSaveTextDocument n) = NotWillSaveTextDocument $ swapUri (params . textDocument) n