norangebit
/
ad-alta-voce
mirror of https://github.com/norangebit/ad-alta-voce
1
0
Fork 0
Code Issues Releases Wiki Activity

Return podcasts

This commit is contained in:
Raffaele Mignone 2021-01-26 15:02:55 +01:00
parent e258eaf123
commit 793e52814b
Signed by: norangebit
GPG Key ID: F5255658CB220573
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Command/Single.hs
View File

@ -46,20 +46,22 @@ writePodcastTemplate (Right template) (Just podcast) outdir = do
fileName = outdir ++ "/" ++ generatePodcastFileName podcast fileName = outdir ++ "/" ++ generatePodcastFileName podcast
output = title ++ " done!" output = title ++ " done!"
single' :: Maybe Audiobook -> String -> String -> IO () single' :: Maybe Audiobook -> String -> String -> IO (Maybe Podcast)
single' audiobook url outdir = do single' audiobook url outdir = do
day <- utctDay <$> getCurrentTime day <- utctDay <$> getCurrentTime
compiled <- compilePodcastTemplate compiled <- compilePodcastTemplate
let podcast = generatePodcast day url <$> audiobook let podcast = generatePodcast day url <$> audiobook
writePodcastTemplate compiled podcast outdir writePodcastTemplate compiled podcast outdir
return podcast
single :: String -> String -> IO () single :: String -> String -> IO ()
single url outdir = do single url outdir = do
audiobook <- scrapeAudiobook url audiobook <- scrapeAudiobook url
single' audiobook url outdir single' audiobook url outdir
return ()
singleWithAuthor :: String -> String -> String -> IO () singleWithAuthor :: String -> String -> String -> IO (Maybe Podcast )
singleWithAuthor url outdir author = do singleWithAuthor url outdir author = do
audiobook <- scrapeAudiobook url audiobook <- scrapeAudiobook url
let abookDescription = (`toAudiobookWithAuthor` author) <$> audiobook let abookDescription = (`toAudiobookWithAuthor` author) <$> audiobook