allow complex shell commands

diff --git a/Annex/Sim.hs b/Annex/Sim.hs
index 7e2f6a8071e66e7ad0ff7498e4eabe5034d211ae..b57148ccac2c7d7999d00cc9b7b9288676d78e3d 100644 (file)
--- a/Annex/Sim.hs
+++ b/Annex/Sim.hs
@@ -287,11 +287,11 @@ applySimCommand c@(CommandVisit repo cmdparams) st _ =
                unlessM (liftIO $ doesDirectoryExist dir) $
                        giveup "Simulated repository unavailable."
                (cmd, params) <- case cmdparams of
-                       (cmd:params) -> return (cmd, params)
                        [] -> do
                                showLongNote "Starting a shell in the simulated repository."
                                shellcmd <- liftIO $ fromMaybe "sh" <$> getEnv "SHELL"
                                return (shellcmd, [])
+                       _ -> return ("sh", ["-c", unwords cmdparams])
                exitcode <- liftIO $
                        safeSystem' cmd (map Param params)
                                (\p -> p { cwd = Just dir })