initing urls db = do conn <- connectSqlite3 db
                     ufds <- loadFeedsFromFile urls
                     nfds <- newFeeds conn ufds
                     mapM_ (addNewFeed conn) nfds
                     commit conn
                     fds <- mapM (populateFeed conn) ufds
                     return (conn, fds)

-- Feed manipulation -------------------------------------------------
initing urls db = do conn <- connectSqlite3 db
                     ufds <- loadFeedsFromFile urls
                     nfds <- newFeeds conn ufds
                     mapM_ (addNewFeed conn) nfds
                     commit conn
                     fds <- mapM (populateFeed conn) ufds
                     return (conn, fds)

-- Feed manipulation -------------------------------------------------
initing urls db = do conn <- connectSqlite3 db
                     ufds <- loadFeedsFromFile urls
                     nfds <- newFeeds conn ufds
                     mapM_ (addNewFeed conn) nfds
                     commit conn
                     fds <- mapM (populateFeed conn) ufds
                     return (conn, fds)

-- Feed manipulation -------------------------------------------------