Rename recorded to replay

[lsp-test.git] / src / Language / Haskell / LSP / Test / Compat.hs

diff --git a/src/Language/Haskell/LSP/Test/Compat.hs b/src/Language/Haskell/LSP/Test/Compat.hs
new file mode 100644 (file)
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