module Main (main) where

import qualified Data.Text.IO as TextIO

import Yore.Repl (getToday)

main :: IO ()
main = do
  putStrLn "* Getting URLs for today..."
  urls <- getToday
  putStrLn "* Done:"
  mapM_ TextIO.putStrLn urls