2021-11-11 21:15:17 +02:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import FeedMonad
|
|
|
|
|
import Data.Category
|
2021-11-11 22:31:38 +02:00
|
|
|
import Data.URL (URL(..))
|
2021-11-11 22:08:46 +02:00
|
|
|
|
|
|
|
|
myFeeds :: [ Category URL ]
|
|
|
|
|
myFeeds =
|
|
|
|
|
[ Category "News"
|
|
|
|
|
[ Leaf (URL "https://github.com/feediron/feediron-recipes/commits/master.atom")]
|
|
|
|
|
]
|
2021-11-11 21:15:17 +02:00
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
2021-11-11 22:08:46 +02:00
|
|
|
defaultMain defaultConfig{feeds = myFeeds }
|
