crawlFromFile :: YukariSettings -> FilePath -> IO ()
crawlFromFile ys f = do
  curl <- logonCurl ys
  body' <- readFile f
  (n, _) <- parsePage ys body'
  crawl ys curl n

-- | Starts the crawl from the URL specified in the settings.
crawlFromFile :: YukariSettings -> FilePath -> IO ()
crawlFromFile ys f = do
  curl <- logonCurl ys
  body' <- readFile f
  (n, _) <- parsePage ys body'
  crawl ys curl n

-- | Starts the crawl from the URL specified in the settings.
crawlFromFile ys f = do
  curl <- logonCurl ys
  body' <- readFile f
  (n, _) <- parsePage ys body'
  crawl ys curl n

-- | Starts the crawl from the URL specified in the settings.