rachel/viddl
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

changed some links

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2022-03-14 10:52:32 +01:00
parent fb094b9ea9
commit 7e86e27185
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Templates/Error.hs
View File

@ -19,7 +19,7 @@ errorPage msg = [r|
<h1>viddl</h1>
<p>|] <> msg <> [r|</p>
<hr>
<p>viddl is free <a href="https://github.com/depsterr/viddl">open source</a> software and is powered by <a href="https://yt-dl.org/">youtube-dl</a>.</p>
<p>viddl is free <a href="https://githug.xyz/depsterr/viddl">open source</a> software and is powered by <a href="https://yt-dl.org/">youtube-dl</a>.</p>
</center>
</body>
|]

2
src/Templates/Index.hs
View File

@ -48,7 +48,7 @@ indexPage = [r|
</tr>
</table>
<hr>
<p>viddl is free <a href="https://github.com/depsterr/viddl">open source</a> software and is powered by <a href="https://yt-dl.org/">youtube-dl</a>.</p>
<p>viddl is free <a href="https://githug.xyz/depsterr/viddl">open source</a> software and is powered by <a href="https://yt-dl.org/">youtube-dl</a>.</p>
</center>
</body>
|]

7
src/YTDL.hs
View File

@ -74,8 +74,9 @@ ytdl url res = do
pure (Right fileName)
else do
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 (concat ["execution failed with status ", show status, ": ", err]))
(ExitFailure status) ->
pure . Left $ "execution failed with status " ++ show status ++ ": " ++ err
_ -> pure (Left "Unable to create ytdlProcess for downloading video")
_ -> (pure . Left) "Unable to create ytdlProcess for downloading video"