[ GenerateNews ] Some debug output

GenerateNews.hs

@@ -16,6 +16,8 @@ import Data.Text (Text)
 import qualified Data.Text as T
 
 import Control.Applicative
+import Control.Monad
+import Data.Foldable
 
 import Network.HTTP.Client
 import Network.HTTP.Client.TLS
@@ -133,12 +135,23 @@ itemToHTML i = do
   desc <- T.unpack <$> getItemDescription i
   pure desc
 
+printRSStitle :: Item -> IO ()
+printRSStitle i = do
+  case (getItemTitle i, getItemDate i) of
+    (Just t, Just d) -> putStrLn (T.unpack d ++ ": " ++ T.unpack t)
+    _ -> pure ()
+
+
 main :: IO ()
 main = do
 
   rss <- getPureRSS 5
   let header = "### default.html(section.news=current,headtags=<link rel='stylesheet' href='{{rootPath}}css/pure.css' type='text/css'/>)\n<!-- DO NOT EDIT THIS FILE DIRECTLY — EDIT _news.yaml AND RUN GenerateNews.hs INSTEAD -->"
   let items = catMaybes $ map itemToHTML rss
+  when (not $ null items) $ do
+    putStrLn "\n===================\nRecent publications\n==================="
+    traverse_ printRSStitle rss
+    putStrLn ""
   let pubs = if (null items) then "" else
         div "recent-pubs" $
         (h2 "Recent MSP publications") ++