fixed some old code
This commit is contained in:
parent
d7e5230c07
commit
7d71df3489
|
@ -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")
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user