Parse atom (partially)

2021-11-11 23:00:50 +02:00
parent 21520d987f
commit 595d5090fe
5 changed files with 47 additions and 12 deletions
--- a/FeedMonad-demo/app/Main.hs
+++ b/FeedMonad-demo/app/Main.hs
@@ -4,11 +4,12 @@ module Main where
 import FeedMonad
 import Data.Category
 import Data.URL (URL(..))
+import Database (FeedId(..))

-myFeeds :: [ Category URL ]
+myFeeds :: [ Category FeedId ]
 myFeeds =
  [ Category "News"
-    [ Leaf (URL "https://github.com/feediron/feediron-recipes/commits/master.atom")]
+    [Leaf (FeedId (URL "https://github.com/feediron/feediron-recipes/commits/master.atom"))]
  ]

 main :: IO ()