- -spawn x = doubleFork $ executeFile "/bin/sh" False ["-c", x] Nothing+spawn x = io $ do shell <- getEnv "$SHELL" `catch` (\_ -> return "/bin/sh")+ doubleFork $ executeFile shell False ["-c", x] Nothing