FeedMonad/FeedMonad-demo/app/Main.hs

17 lines
340 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
module Main where
import FeedMonad
import Data.Category
import Data.Entry (URL(URL))
myFeeds :: [ Category URL ]
myFeeds =
[ Category "News"
[ Leaf (URL "https://github.com/feediron/feediron-recipes/commits/master.atom")]
]
main :: IO ()
main = do
defaultMain defaultConfig{feeds = myFeeds }