crawlchain-0.1.0.8: src/Network/CrawlChain/CrawlResult.hs

module Network.CrawlChain.CrawlResult where

import Network.CrawlChain.CrawlAction

data CrawlResult = CrawlResult {
  crawlingAction :: CrawlAction,
  crawlingContent :: String,
  crawlingResultStatus :: CrawlingResultStatus
} deriving Show

data CrawlingResultStatus = CrawlingOk
                          | CrawlingRedirect String
                          | CrawlingFailed String
  deriving (Show, Eq)