loadFeedItems conn fd = do query <- quickQuery' conn "SELECT title,url,feedurl,author,guid,pubDate,enclosure_url,enclosure_type,id,unread FROM rss_item WHERE feedurl = ?" [url]
                           return $ map rowToItem query
    where url = toSql $ fd_rssurl fd

-- Database writing (caller must call commit itself) -----------------
loadFeedItems conn fd = do query <- quickQuery' conn "SELECT title,url,feedurl,author,guid,pubDate,enclosure_url,enclosure_type,id,unread FROM rss_item WHERE feedurl = ?" [url]
                           return $ map rowToItem query
    where url = toSql $ fd_rssurl fd

-- Database writing (caller must call commit itself) -----------------
loadFeedItems conn fd = do query <- quickQuery' conn "SELECT title,url,feedurl,author,guid,pubDate,enclosure_url,enclosure_type,id,unread FROM rss_item WHERE feedurl = ?" [url]
                           return $ map rowToItem query
    where url = toSql $ fd_rssurl fd

-- Database writing (caller must call commit itself) -----------------