@@ -1,3 +1,4 @@
1-- | Lifted version of "System.Process".
2-- | Lifted version of "System.Process".
2module Effectful.Process
3module Effectful.Process
3 ( -- * The effect
4 ( -- * The effect
@@ -30,7 +31,9 @@ module Effectful.Process
30 , P.showCommandForUser
31 , P.showCommandForUser
34+#if MIN_VERSION_process(1,6,12)
33 , getCurrentPid
35 , getCurrentPid
35 -- * Process completion
38 -- * Process completion
36 , waitForProcess
39 , waitForProcess
@@ -143,9 +146,11 @@ cleanupProcess = unsafeEff_ . P.cleanupProcess
143getPid :: Process :> es => P.ProcessHandle -> Eff es (Maybe P.Pid)
146getPid :: Process :> es => P.ProcessHandle -> Eff es (Maybe P.Pid)
144getPid = unsafeEff_ . P.getPid
147getPid = unsafeEff_ . P.getPid
149+#if MIN_VERSION_process(1,6,12)
146-- | Lifted 'P.getCurrentPid'.
150-- | Lifted 'P.getCurrentPid'.
147getCurrentPid :: Process :> es => Eff es P.Pid
151getCurrentPid :: Process :> es => Eff es P.Pid
148getCurrentPid = unsafeEff_ P.getCurrentPid
152getCurrentPid = unsafeEff_ P.getCurrentPid
150----------------------------------------
155----------------------------------------
151-- Process completion
156-- Process completion