findByGuid :: (IConnection c) => c -> RSSItem -> IO Bool
findByGuid conn (RSSItem _ _ _ _ _ (Just g) _ _ _ _ _) =
        do query <- quickQuery' conn "SELECT guid FROM rss_item WHERE guid = ?" [toSql g]
           return $ length query /= 0
findByGuid :: (IConnection c) => c -> RSSItem -> IO Bool
findByGuid conn (RSSItem _ _ _ _ _ (Just g) _ _ _ _ _) =
        do query <- quickQuery' conn "SELECT guid FROM rss_item WHERE guid = ?" [toSql g]
           return $ length query /= 0
findByGuid conn (RSSItem _ _ _ _ _ (Just g) _ _ _ _ _) =
        do query <- quickQuery' conn "SELECT guid FROM rss_item WHERE guid = ?" [toSql g]
           return $ length query /= 0