X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FCompat.hs;fp=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FCompat.hs;h=00f2c0b08b848e94b671b7c0028f98f411ae8c95;hb=bf56f6dd8c0b0fc34770135819caa54a6410b1df;hp=0000000000000000000000000000000000000000;hpb=a3130a85efbf9249ab983bcf66586ed3c596e33a;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test/Compat.hs b/src/Language/Haskell/LSP/Test/Compat.hs
new file mode 100644
index 0000000..00f2c0b
--- /dev/null
+++ b/src/Language/Haskell/LSP/Test/Compat.hs
@@ -0,0 +1,18 @@
+{-# LANGUAGE CPP #-}
+
+module Language.Haskell.LSP.Test.Compat where
+
+
+#ifdef mingw32_HOST_OS
+
+import qualified System.Win32.Process as P (getCurrentProcessId)
+getProcessID :: IO Int
+getProcessID = fromIntegral <$> P.getCurrentProcessId
+
+#else
+
+import qualified System.Posix.Process as P (getProcessID)
+getProcessID :: IO Int
+getProcessID = fromIntegral <$> P.getProcessID
+
+#endif