13 lines
230 B
Haskell
13 lines
230 B
Haskell
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
|