Parse atom (partially)

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 ()