readItem :: (IConnection c) => c -> RSSItem -> IO RSSItem
readItem conn it@(RSSItem t u f d a (Just g) p eu et id ur) =
        do query <- quickQuery' conn "SELECT title,url,feedurl,author,guid,pubDate,enclosure_url,enclosure_type,id,unread FROM rss_item WHERE guid = ?" [toSql g]
           if query == [] then return it
           else return $ rowToItem $ head query
readItem :: (IConnection c) => c -> RSSItem -> IO RSSItem
readItem conn it@(RSSItem t u f d a (Just g) p eu et id ur) =
        do query <- quickQuery' conn "SELECT title,url,feedurl,author,guid,pubDate,enclosure_url,enclosure_type,id,unread FROM rss_item WHERE guid = ?" [toSql g]
           if query == [] then return it
           else return $ rowToItem $ head query
readItem conn it@(RSSItem t u f d a (Just g) p eu et id ur) =
        do query <- quickQuery' conn "SELECT title,url,feedurl,author,guid,pubDate,enclosure_url,enclosure_type,id,unread FROM rss_item WHERE guid = ?" [toSql g]
           if query == [] then return it
           else return $ rowToItem $ head query