projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix various issues encountered on Windows
[lsp-test.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Session.hs
diff --git
a/src/Language/Haskell/LSP/Test/Session.hs
b/src/Language/Haskell/LSP/Test/Session.hs
index 291a3e0bcaa990327988f2bcbd9df6554a63f50f..ab09726f2ef5490654d4a41099ed53e42f03b608 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Session.hs
+++ b/
src/Language/Haskell/LSP/Test/Session.hs
@@
-197,6
+197,10
@@
runSessionWithHandles serverIn serverOut serverHandler config caps rootDir sessi
hSetBuffering serverIn NoBuffering
hSetBuffering serverOut NoBuffering
hSetBuffering serverIn NoBuffering
hSetBuffering serverOut NoBuffering
+ -- This is required to make sure that we don’t get any
+ -- newline conversion or weird encoding issues.
+ hSetBinaryMode serverIn True
+ hSetBinaryMode serverOut True
reqMap <- newMVar newRequestMap
messageChan <- newChan
reqMap <- newMVar newRequestMap
messageChan <- newChan
@@
-256,7
+260,7
@@
updateState (ReqApplyWorkspaceEdit r) = do
forM_ bumpedVersions $ \(VersionedTextDocumentIdentifier uri v) ->
modify $ \s ->
let oldVFS = vfs s
forM_ bumpedVersions $ \(VersionedTextDocumentIdentifier uri v) ->
modify $ \s ->
let oldVFS = vfs s
- update (VirtualFile oldV t
) = VirtualFile (fromMaybe oldV v) t
+ update (VirtualFile oldV t
mf) = VirtualFile (fromMaybe oldV v) t mf
newVFS = Map.adjust update uri oldVFS
in s { vfs = newVFS }
newVFS = Map.adjust update uri oldVFS
in s { vfs = newVFS }