@@ -56,7 +56,7 @@ import Effectful.Internal.Monad
5656
5757-- | An effect for running child processes using the @process@ library.
5858data Process :: Effect where
59− Process :: Process m r
59+ Process :: Process m r
6060
6161runProcess :: IOE :> es => Eff (Process : es) a -> Eff es a
6262runProcess = evalEffect (IdE Process)
@@ -129,8 +129,8 @@ withCreateProcess
129129 => P.CreateProcess
130130 -> (Maybe Handle -> Maybe Handle -> Maybe Handle -> P.ProcessHandle -> Eff es a)
131131 -> Eff es a
132−withCreateProcess cp cb = unsafeEff $ \es ->
133− unsafeSeqUnliftEff es $ \runInIO ->
132+withCreateProcess cp cb = unsafeEff $ \es -> do
133+ seqUnliftEff es $ \runInIO -> do
134134 P.withCreateProcess cp (\inh outh errh ph -> runInIO $ cb inh outh errh ph)
135135
136136-- | Lifted 'P.cleanupProcess'.