factor

1 files changed, 3 insertions, 1 deletions

diff --git a/vmail/src/WebApp.hs b/vmail/src/WebApp.hs
index d0d34ea..8a74eee 100644
--- a/vmail/src/WebApp.hs
+++ b/vmail/src/WebApp.hs
@@ -384,6 +384,8 @@ saveVideoClip outputFile inputChunks startTime stopTime = do
        (AddEnv "output" outputFile)
        (["sh", "-c", cmdScript, "sh"] ++ inputChunks)
 
+messageChanges uuid = messages . at uuid . _Just . messageModifications . to (fmap withoutMetaData)
+
 saveMessage :: HandlerG SaveMessageApi
 saveMessage addr uuid start stop = do
   let inputDir = "./blobs" </> show uuid
@@ -396,7 +398,7 @@ saveMessage addr uuid start stop = do
   now <- liftIO getCurrentTime
   g <- queryG
   let changes :: [MessageChange]
-      changes = view (messages . at uuid . _Just . messageModifications . to (fmap withoutMetaData)) g
+      changes = view (messageChanges uuid) g
       blobs :: [RTCBlob]
       blobs = [blob | AppendBlob blob <- changes]
       inputVideos :: [FilePath]