module Haddock.Compat
  ( getProcessID
  , setEncoding
  ) where

import System.Posix.Types (ProcessID)
import qualified System.Posix.Process as Posix

-- | Windows-only failsafe, not applicable on POSIX plateforms
setEncoding :: IO ()
setEncoding :: IO ()
setEncoding = () -> IO ()
forall a. a -> IO a
forall (f :: Type -> Type) a. Applicative f => a -> f a
pure ()

getProcessID :: IO Int
getProcessID :: IO Int
getProcessID = forall a b. (Integral a, Num b) => a -> b
fromIntegral @ProcessID @Int (ProcessID -> Int) -> IO ProcessID -> IO Int
forall (f :: Type -> Type) a b. Functor f => (a -> b) -> f a -> f b
<$> IO ProcessID
Posix.getProcessID