keroosha/Keroosha.SilencerBot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove trash

Browse Source
This commit is contained in:
Keroosha 2023-04-13 04:02:26 +03:00
parent e7ecfe2849
commit 64f4086370
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Keroosha.SilencerBot/Processing.fs
View File

@ -19,18 +19,6 @@ let inline private (>>=) a b = (a, b) |> async.Bind
let getContext (x: UserJob) = x.Context |> JsonSerializer.Deserialize<JsonJobContext> let getContext (x: UserJob) = x.Context |> JsonSerializer.Deserialize<JsonJobContext>
let serializeContext (x: JsonJobContext) = x |> JsonSerializer.Serialize<JsonJobContext> let serializeContext (x: JsonJobContext) = x |> JsonSerializer.Serialize<JsonJobContext>
let downloadUrl token path = $"https://api.telegram.org/file/bot{token}/{path}" let downloadUrl token path = $"https://api.telegram.org/file/bot{token}/{path}"
let packAudio name stream =
{
InputMediaAudio.Media = InputFile.File(name, stream)
Thumb = None
Caption = None
ParseMode = None
CaptionEntities = None
Duration = None
Performer = None
Title = Some name
Type = "Audio"
} |> InputMedia.Audio
let failJob (x: UserJob, ctx: JsonJobContext) (errMessage: String) = let failJob (x: UserJob, ctx: JsonJobContext) (errMessage: String) =
{ x with { x with
@ -115,7 +103,7 @@ let processUploading (job: UserJob, botConfig: Funogram.Types.BotConfig, config:
async { async {
let ctx = getContext job let ctx = getContext job
let cleanName = Path.GetFileNameWithoutExtension ctx.savePath let cleanName = Path.GetFileNameWithoutExtension ctx.savePath
let withoutVocalsPath = Path.Combine(Path.GetDirectoryName ctx.savePath, $"{cleanName}_Instrumental.wav") let withoutVocalsPath = Path.Combine(Path.GetDirectoryName ctx.savePath, $"{cleanName}_Instruments.wav")
use f = File.OpenRead withoutVocalsPath use f = File.OpenRead withoutVocalsPath
Logging.logger.Information $"Uploading results for {job.Id} job" Logging.logger.Information $"Uploading results for {job.Id} job"