fixed some old code

This commit is contained in:
Rachel Lambda Samuelsson 2021-07-09 18:21:14 +02:00
parent d7e5230c07
commit 7d71df3489

View File

@ -71,9 +71,7 @@ ytdl url res = ReaderT $ \cfg -> do
_ <- forkIO $ threadDelay 300000000 >> removeDirectoryRecursive dir _ <- forkIO $ threadDelay 300000000 >> removeDirectoryRecursive dir
pure (Right fileName) pure (Right fileName)
else do else do
-- removeDirectoryRecursive dir removeDirectoryRecursive dir
pure (Left "An unknown error prevented the output file from being created") pure (Left "An unknown error prevented the output file from being created")
(ExitFailure status) -> pure (Left ("execution failed with status " <> show status)) (ExitFailure status) -> pure (Left ("execution failed with status " <> show status))
_ -> pure (Left "Unable to create ytdlProcess for downloading video")