deque-blog/rapid_check_result_type.hs

## rapid_check_result_type.hs
data Result
  = Success                     -- In case of success, no additional information
  | Failure {
    seed :: Int,                -- The seed used to generate the counter example
    counterExample :: [String]  -- The counter example (failing inputs to string)
  } deriving (Show, Eq, Ord)    -- Useful instances to print and compare Results
	data Result
	= Success -- In case of success, no additional information
	\| Failure {
	seed :: Int, -- The seed used to generate the counter example
	counterExample :: [String] -- The counter example (failing inputs to string)
	} deriving (Show, Eq, Ord) -- Useful instances to print and compare Results