crawlFromURL :: YukariSettings -> IO ()
crawlFromURL ys = do
  let settings = ys ^. siteSettings
  curl <- logonCurl ys
  crawl ys curl $ _searchSite settings

-- | Logs the user in with 'logonCurl' and fetches a single page using
-- 'getInternalPage'. Useful when we just want to grab something quickly.
crawlFromURL :: YukariSettings -> IO ()
crawlFromURL ys = do
  let settings = ys ^. siteSettings
  curl <- logonCurl ys
  crawl ys curl $ _searchSite settings

-- | Logs the user in with 'logonCurl' and fetches a single page using
-- 'getInternalPage'. Useful when we just want to grab something quickly.
crawlFromURL ys = do
  let settings = ys ^. siteSettings
  curl <- logonCurl ys
  crawl ys curl $ _searchSite settings

-- | Logs the user in with 'logonCurl' and fetches a single page using
-- 'getInternalPage'. Useful when we just want to grab something quickly.