xecuteCommand' :: Params -> Command -> IO ()
executeCommand' params = executeCommand fixEnvironment >=> \case
    FailedToSetCurrentDirectory dir e ->
        dieWith params stderr 1 (showing dir <> ": " <> showing e)

    FailedToExecuteCommand cmd' _ _ _ e ->
        dieWith params stderr 126 (showing cmd' <> ": " <> showing e)

  where
    showing :: Show a => a -> Text
    showing = fromString . show

executeCommand' :: Params -> Command -> IO ()
executeCommand' params = executeCommand fixEnvironment >=> \case
    FailedToSetCurrentDirectory dir e ->
        dieWith params stderr 1 (showing dir <> ": " <> showing e)

    FailedToExecuteCommand cmd' _ _ _ e ->
        dieWith params stderr 126 (showing cmd' <> ": " <> showing e)

  where
    showing :: Show a => a -> Text
    showing = fromString . show
executeCommand' params = executeCommand fixEnvironment >=> \case
    FailedToSetCurrentDirectory dir e ->
        dieWith params stderr 1 (showing dir <> ": " <> showing e)

    FailedToExecuteCommand cmd' _ _ _ e ->
        dieWith params stderr 126 (showing cmd' <> ": " <> showing e)

  where
    showing :: Show a => a -> Text
    showing = fromString . show