main :: IO()
main = do args  <- getArgs
          dir   <- getDefaultDir args
          let urls = dir ++ "/urls"
          let cache = dir ++ "/cache.db"
          (conn, feeds) <- initing urls cache
          mapM_ (\x -> let (Just t) = fd_title x in putStrLn t) feeds
          disconnect conn
main :: IO()
main = do args  <- getArgs
          dir   <- getDefaultDir args
          let urls = dir ++ "/urls"
          let cache = dir ++ "/cache.db"
          (conn, feeds) <- initing urls cache
          mapM_ (\x -> let (Just t) = fd_title x in putStrLn t) feeds
          disconnect conn
main = do args  <- getArgs
          dir   <- getDefaultDir args
          let urls = dir ++ "/urls"
          let cache = dir ++ "/cache.db"
          (conn, feeds) <- initing urls cache
          mapM_ (\x -> let (Just t) = fd_title x in putStrLn t) feeds
          disconnect conn