From da4aefaf96d555193e276f636055439f35d87884 Mon Sep 17 00:00:00 2001
From: jneira <atreyu.bbb@gmail.com>
Date: Tue, 28 Jan 2020 12:28:30 +0100
Subject: [PATCH] Force utf8 encoding writing vfs temp files

---
 src/Language/Haskell/LSP/VFS.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Language/Haskell/LSP/VFS.hs b/src/Language/Haskell/LSP/VFS.hs
index aa58156b9..4451bf1bd 100644
--- a/src/Language/Haskell/LSP/VFS.hs
+++ b/src/Language/Haskell/LSP/VFS.hs
@@ -192,6 +192,7 @@ persistFileVFS vfs uri =
                    writeRaw h = do
                     -- We honour original file line endings
                     hSetNewlineMode h noNewlineTranslation
+                    hSetEncoding h utf8
                     hPutStr h contents
                logs  $ "haskell-lsp:persistFileVFS: Writing virtual file: " 
                     ++ "uri = " ++ show uri ++ ", virtual file = " ++ show tfn