@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12-- | Lifted version of "System.Process".
23module Effectful.Process
34 ( -- * The effect
@@ -30,7 +31,9 @@ module Effectful.Process
3031 , P.showCommandForUser
3132 , P.Pid
3233 , getPid
34+#if MIN_VERSION_process(1,6,12)
3335 , getCurrentPid
36+#endif
3437
3538 -- * Process completion
3639 , waitForProcess
@@ -143,9 +146,11 @@ cleanupProcess = unsafeEff_ . P.cleanupProcess
143146getPid :: Process :> es => P.ProcessHandle -> Eff es (Maybe P.Pid)
144147getPid = unsafeEff_ . P.getPid
145148
149+#if MIN_VERSION_process(1,6,12)
146150-- | Lifted 'P.getCurrentPid'.
147151getCurrentPid :: Process :> es => Eff es P.Pid
148152getCurrentPid = unsafeEff_ P.getCurrentPid
153+#endif
149154
150155----------------------------------------
151156-- Process completion