From 793e52814be244be0e81e637a3afe0c3f4037b84 Mon Sep 17 00:00:00 2001
From: norangebit <git@norangeb.it>
Date: Tue, 26 Jan 2021 15:02:55 +0100
Subject: [PATCH] Return podcasts

---
 src/Command/Single.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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