diff options
| author | Gordon GECOS <u@adam> | 2022-12-26 05:31:23 -0500 |
|---|---|---|
| committer | Gordon GECOS <u@adam> | 2022-12-26 05:31:23 -0500 |
| commit | 7a48e69e4ed27dba6b49c93465a70081c6735801 (patch) | |
| tree | 2f31d04f8ac1e87db3d48722cbbc8c0f3b1aa0bb | |
| parent | bc28734fcfb8da25c54b5a02a0bacad2b5d6c1a6 (diff) | |
check off this TODO item
| -rw-r--r-- | vmail/src/WebApp.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/vmail/src/WebApp.hs b/vmail/src/WebApp.hs index 3fcf243..a99798b 100644 --- a/vmail/src/WebApp.hs +++ b/vmail/src/WebApp.hs | |||
| @@ -398,7 +398,6 @@ saveMessage addr uuid start stop = do | |||
| 398 | inputVideos = (inputDir </>) . blobFileName <$> sortBy (comparing blobSeqNo) blobs | 398 | inputVideos = (inputDir </>) . blobFileName <$> sortBy (comparing blobSeqNo) blobs |
| 399 | updateG $ g & messageAppend uuid now addr (SetStartTime $ toRational start) | 399 | updateG $ g & messageAppend uuid now addr (SetStartTime $ toRational start) |
| 400 | & messageAppend uuid now addr (SetStopTime $ toRational stop) | 400 | & messageAppend uuid now addr (SetStopTime $ toRational stop) |
| 401 | -- TODO: pipe concatenated blobs into ffmpeg, saving result into htdocs, then redirect to the hosted file | ||
| 402 | liftIO $ saveVideoClip tempFile inputVideos start stop | 401 | liftIO $ saveVideoClip tempFile inputVideos start stop |
| 403 | liftIO $ renameFile tempFile outputFile | 402 | liftIO $ renameFile tempFile outputFile |
| 404 | return outputUrl | 403 | return outputUrl |