From 7d71df34896c584ae8979e7e9db1629f261f26eb Mon Sep 17 00:00:00 2001 From: depsterr Date: Fri, 9 Jul 2021 18:21:14 +0200 Subject: [PATCH] fixed some old code --- src/YTDL.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/YTDL.hs b/src/YTDL.hs index 82a3810..94b95b9 100644 --- a/src/YTDL.hs +++ b/src/YTDL.hs @@ -71,9 +71,7 @@ ytdl url res = ReaderT $ \cfg -> do _ <- forkIO $ threadDelay 300000000 >> removeDirectoryRecursive dir pure (Right fileName) else do - -- removeDirectoryRecursive dir + removeDirectoryRecursive dir pure (Left "An unknown error prevented the output file from being created") (ExitFailure status) -> pure (Left ("execution failed with status " <> show status)) - - _ -> pure (Left "Unable to create ytdlProcess for downloading video")