updateFeed c (RSSFeed r       u t _ _) = do update_if c r u "url"
                                            update_if c r t "title"
    where update_if _ _ Nothing _ = return()
          update_if c (Just r) (Just v) s = do run c ("UPDATE rss_feed SET " ++ s ++ " = ? WHERE rssurl = ?") [toSql v, toSql r]
                                               return()
updateFeed c (RSSFeed r       u t _ _) = do update_if c r u "url"
                                            update_if c r t "title"
    where update_if _ _ Nothing _ = return()
          update_if c (Just r) (Just v) s = do run c ("UPDATE rss_feed SET " ++ s ++ " = ? WHERE rssurl = ?") [toSql v, toSql r]
                                               return()
updateFeed c (RSSFeed r       u t _ _) = do update_if c r u "url"
                                            update_if c r t "title"
    where update_if _ _ Nothing _ = return()
          update_if c (Just r) (Just v) s = do run c ("UPDATE rss_feed SET " ++ s ++ " = ? WHERE rssurl = ?") [toSql v, toSql r]
                                               return()