From 3c742087af0d79bc2b86965606be673201b16346 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Fri, 27 Dec 2019 22:03:00 +0100 Subject: pkgs/profpatsch/youtube2audiopodcast: serve rss feed & audio files --- pkgs/profpatsch/youtube2audiopodcast/Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'pkgs/profpatsch/youtube2audiopodcast/Main.hs') diff --git a/pkgs/profpatsch/youtube2audiopodcast/Main.hs b/pkgs/profpatsch/youtube2audiopodcast/Main.hs index 98be3867..4d0f9a93 100755 --- a/pkgs/profpatsch/youtube2audiopodcast/Main.hs +++ b/pkgs/profpatsch/youtube2audiopodcast/Main.hs @@ -5,6 +5,7 @@ module Main where import Data.Text (Text) +import Data.Text.Lazy.IO as TIO import Text.RSS.Syntax import Text.Feed.Types (Feed(RSSFeed)) import Text.Feed.Export (textFeed) @@ -68,7 +69,8 @@ main = do { channelName = "channel name" , channelURL = "channel url" }) - print $ textFeed $ RSSFeed $ toRSS exConfig rss + let (Just feed) = textFeed $ RSSFeed $ toRSS exConfig rss + TIO.putStr feed toRSS :: Config -> Channel -> RSS toRSS Config{..} Channel{channelInfo, channelItems} = -- cgit 1.4.1