core, mobile: file error statuses, cancel sent file (#2193)

2026-08-27 22:34:51 +00:00 · 2023-04-18 12:48:36 +04:00
parent 6913bf1a46
commit 09481e09b6
22 changed files with 445 additions and 177 deletions
@@ -343,11 +343,14 @@ xftpServerConfig =
    }

 withXFTPServer :: IO () -> IO ()
-withXFTPServer =
+withXFTPServer = withXFTPServer' xftpServerConfig
+
+withXFTPServer' :: XFTPServerConfig -> IO () -> IO ()
+withXFTPServer' cfg =
  serverBracket
    ( \started -> do
        createDirectoryIfMissing False xftpServerFiles
-        runXFTPServerBlocking started xftpServerConfig
+        runXFTPServerBlocking started cfg
    )

 serverBracket :: (TMVar Bool -> IO ()) -> IO () -> IO ()