reduce log output

1 files changed, 2 insertions, 2 deletions

diff --git a/vmail/src/WebApp.hs b/vmail/src/WebApp.hs
index 5a805d0..d0d34ea 100644
--- a/vmail/src/WebApp.hs
+++ b/vmail/src/WebApp.hs
@@ -370,7 +370,7 @@ saveVideoClip :: FilePath -> [FilePath] -> Float -> Float -> IO ()
 saveVideoClip outputFile inputChunks _ stopTime | stopTime == 0 = do
   let cmdScript = "cat \"$@\" > \"$output\"" :: String
   cmd_ (AddEnv "output" outputFile)
-       (["sh", "-xc", cmdScript, "sh"] ++ inputChunks)
+       (["sh", "-c", cmdScript, "sh"] ++ inputChunks)
 saveVideoClip outputFile inputChunks startTime stopTime = do
   let cmdScript =
         if ".mp4" `isSuffixOf` outputFile
@@ -382,7 +382,7 @@ saveVideoClip outputFile inputChunks startTime stopTime = do
   cmd_ (AddEnv "start" $ show startTime)
        (AddEnv "stop" $ show (stopTime - startTime))
        (AddEnv "output" outputFile)
-       (["sh", "-xc", cmdScript, "sh"] ++ inputChunks)
+       (["sh", "-c", cmdScript, "sh"] ++ inputChunks)
 
 saveMessage :: HandlerG SaveMessageApi
 saveMessage addr uuid start stop = do