download (RSSFeed (Just ul)  _ _ (Just Filter) _) = do dl <- dlUrl url
                                                       if isNothing dl then return Nothing
                                                       else let (Just s) = dl in dlFilter c a s
    where (c,a,url) = parseFilter ul
download (RSSFeed (Just ul)  _ _ (Just Filter) _) = do dl <- dlUrl url
                                                       if isNothing dl then return Nothing
                                                       else let (Just s) = dl in dlFilter c a s
    where (c,a,url) = parseFilter ul
download (RSSFeed (Just ul)  _ _ (Just Filter) _) = do dl <- dlUrl url
                                                       if isNothing dl then return Nothing
                                                       else let (Just s) = dl in dlFilter c a s
    where (c,a,url) = parseFilter ul